E3D-TR-66-19 
ESTI  FILE  COPY 


KSO-TOR-66-19 

■  ESD  ACCESSION  l  1ST 

v'  Al  4  93  SO _ 

esd  record  cop\  w  0  — 01  — k —  '*• 

RETURN  TO 

SCIENTIFIC  &  TECHNICAL  INFORMATION  DIVISION 
(KTI).  BUILDING  1211 

s  • 


Technical  Note 


1' 


G.  M 

H.  L. 


6-4 


Shannon 

Kasnitz 


BASELINE 

A  Man-Machine  Program 
for  Data  Analysis 


J.  A.  Drnmhciler 


Prepared  for  the  Advanced  Hfsenri  h  Projects  Agency 
under  Electronic  Systems  Division  Contract  \K  19(tS2BV5167 

Lincoln  Laboratory 

MASSACHUSK7  IS  INSTITUTE  OF  TECHNOLOGY 
Lesington,  Massachusetts 


c 


&  s 


The  work  reported  in  this  document  was  performed  at  Lincoln  Labor 

ter  tor  research  operated  by  Massachusetts  Institute  of  Technology. 
This  research  is  a  part  of  Project  DEFENDER,  which  is  sponsored  b\  the 
l  $  \  diced  Research  Projects  Agency  of  the  Department  of  Defense;  it 
is  supported  b\  ARPA  under  Air  Force  Contract  AF  1 9 (628 V S 1 67  (ARPA 
Order  bOO). 

This  report  may  be  reproduced  to  satisfy  needs  of  U.S.  Government  agencies. 


Distribution  of  this  document  is  unlimited. 


MASSACHUSETTS  INSTITUTE  OF  TECHNOLOGY 


BASELINE: 


52 


LINCOLN  LABORATORY 


MAN- MACHINE  PROGRAM  FOR  DATA  ANALYSIS 


G.  M.  SHANNON 

H.  L.  KASNITZ 

Group  21 


J.  A.  DRUMHELLER 

Adams  Associates 


TECHNICAL  NOTE  1966-4 

20  JANUARY  1966 


L  E  X I  N  G  T  0  N 


MASSACHUSETTS 


ABSTRACT 


BASELINE  was  designed  to  perforin  a  statistical  analysis  of  radar  pulse  data 
previously  read  by  the  Laboratory's  high  precision  computer  controlled  film  reader. 

A  computer  controlled  display  oscilloscope,  a  light  pen  and  a  set  of  function  coded 
sense  switches  provide  a  real  time  interface  between  an  analyst  and  the  data  reduction 
program  in  the  computer.  The  computer  performs  all  necessary  display,  computation 
and  outputting  functions.  All  operations  are  under  direct  control  of  the  analyst.  He 
sets  the  operating  criteria,  exercises  the  required  judgments  and  steers  the  program 
through  the  required  analysis. 

Analytical  results  are  quickly  available  and  rapidly  documented.  Output  consists 
of  a  statistical  distribution  of  the  input  data  displayed  on  a  large  oscilloscope.  This 
display  may  easily  be  documented  photographically.  Key  parameters  describing  the 
statistical  distribution  may  be  output  on  the  typewriter  at  the  command' of  the  analyst. 

A  very  large  saving  in  data  reduction  time  results  since  the  necessity  of  repeated  test 
runs  through  a  large  computer  and  subsequent  study  of  the  numerical  printouts  is 
eliminated. 
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I.  Introduction 

BASELINE  performs  a  statistical  analysis  of  radar  pulse  data.  The  program 
provides  an  effective  interface  between  the  analyst  and  the  mathematical  reduction  in 
the  computer.  The  presence  of  the  analyst  is  required. 

The  program  uses  the  techniques  of  computer  graphics  to  present  both  raw  data 
and  processed  data  to  the  analyst.  Primary  control  is  exercised  by  the  analyst  with  a 
light  pen  and  a  set  of  function  coded  sense  switches. 

All  processing  takes  place  directly  under  the  analyst’s  control.  He  may  inter¬ 
vene  in  the  processing  at  any  point.  The  required  outputs  may  be  documented  imme¬ 
diately  upon  completion  of  the  analysis.  The  reduction  process  is  continuous  from  raw 
data  entry  to  final  documentation.  A  production  run  of  data  typically  requires  about  15 
minutes  to  complete.  This  program  replaces  a  series  of  test  data  runs  previously 
handled  on  the  IBM  7094  computer  which,  because  of  their  necessarily  discontinuous 
nature,  required  about  four  days  to  complete  and  analyze. 

This  program  was  written  for  the  Digital  Equipment  Company  PDP-1  computer 
equipped  with  16,  000  words  of  storage.  The  word  length  of  this  machine  is  18  bits. 

The  primary  man-machine  interface  is  accomplished  with  the  DEC  Type  340  computer 
controlled  display  oscilloscope,  which  is  used  for  all  the  displays  in  the  program.  A 
light  pen  is  used  by  the  analyst  to  provide  direct  graphical  communication  with  the 
program.  The  six  sense  switches  and  the  eighteen  test  word  switches  located  on  the 
computer  control  panel  are  paralleled  and  brought  out  to  a  special  control  box  which 
may  be  conveniently  moved  about  at  the  oscilloscope  control  station.  These  switches 
are  equipped  with  indicator  lights  and  accept  overlay  cards  which  are  marked  in  terms 
of  the  program  functions  which  they  control.  These  switches,  function  coded  by  the 
program,  form  a  primary  communication  medium  with  the  data  reduction  program  so 
that  the  operating  analyst  need  not  be  familiar  with  the  details  of  the  computer  or  its 
programming. 

The  control  station  is  shown  in  Fig.  1.  The  oscilloscope,  the  light  pen  and  the 
control  box  form  the  primary  man-machine  interface.  The  input-output  typewriter  is 
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Fig.  1.  The  Computer  Control  Station. 
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also  available  as  a  two  way  interface  but  its  use  is  limited  to  title  modification  on  the 
display  and  as  a  selectable  printer  for  typed  output. 

It  has  been  found  that  an  analyst  familiar  with  the  data  reduction  problem  can 
learn  to  use  BASELINE  in  about  15  minutes. 

The  control  box  is  activated  by  the  computer  program  through  a  special  instruc¬ 
tion  so  that  the  programmer  may  make  the  control  box  available  to  the  analyst  and 
still  preserve  the  normal  use  of  the  panel  switches  if  he  so  desires. 

The  graphical  display  is  fully  titled.  Control  functions  are  identified  by  title 
and  are  accessable  to  light  pen  operation.  Appropriate  parameters  of  the  statistical 
analysis  are  continuously  updated  and  displayed. 

Graphical  documentation  is  available  by  photographing  the  display.  Typewriter 
printout  of  the  statistical  parameters  and  the  identification  data  form  the  normal  out¬ 
put.  At  the  option  of  the  analyst,  this  documentation  may  be  recorded  on  high  speed 
punched  tape  for  later  printing  on  a  Flexowriter. 

II.  The  Purpose  of  the  Program 

An  automatic  computer  controlled  film  reader  is  regularly  used  at  the  Labora¬ 
tory  to  digitize  radar  pulse  data  recorded  on  film  from  the  face  of  a  cathode  ray  tube. 
Data  is  recorded  in  rows  or  "channels"  on  a  continuously  moving  35  mm  film.  Up  to 
four  channels  of  data  may  be  recorded  on  one  film  and  the  reading  of  the  data  is  com¬ 
pletely  automatic.  A  section  of  film  showing  radar  pulses  as  recorded  from  the  CRT 
is  shown  in  Fig.  2.  The  system  has  successfully  recorded  data  with  bandwidths  up  to 
17  Mcps. 

These  digitized  pulse  data  are  analyzed  by  a  series  of  programs  written  for  the 
IBM  7094  computer.  Before  a  meaningful  analysis  can  be  accomplished  it  is  necessary 
to  determine  the  position  of  the  leading  edge  of  each  pulse  return  with  respect  to  its 
location  on  the  digitized  oscilloscope  trace.  A  pattern  recognition  program  written 
for  the  IBM  7094  performs  this  function  by  passing  a  mathematical  filter  through  each 
recorded  pulse.  This  FILTER  program  requires  a  threshold  number  for  proper  oper¬ 
ation.  The  threshold  number  is  based  on  the  noise  statistics  of  the  baseline  of  the 
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Fig.  2.  Typical  Radar  Film. 
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traces  which  also  contain  the  pulses.  BASELINE  is  designed  primarily  to  perform  a 
statistical  analysis  to  obtain  this  threshold  number. 

The  region  of  the  data  traces  to  be  used  to  obtain  the  baseline  noise  statistics 
is  selected  by  the  analyst.  For  noise  statistics,  areas  of  the  traces  that  do  not  include 
the  pulses  are  selected.  The  analyst  may,  however,  select  the  pulse  data  for  analysis 
and  the  program  will  then  produce  pulse  statistics.  This  feature  has  proven  particu¬ 
larly  useful  in  handling  data  recorded  in  phase  quadrature  as  it  allows  a  separate 
statistical  study  of  each  quadrature  channel  so  that  any  inequalities  in  gain  settings  on 
the  quadrature  channels  can  be  measured.  The  subsequent  analysis  is  then  adjusted  to 
account  for  any  measured  gain  difference  in  the  quadrature  data  channels. 

The  use  of  BASELINE  allows  one  to  enter  a  series  of  extensive  and  time  con¬ 
suming  7094  programs  with  high  confidence  that  the  operating  parameters  of  these 
programs  have  been  properly  chosen  to  match  the  particular  set  of  data  that  is  being 
processed. 

III.  General  Description  of  the  Program 

The  output  data  from  the  film  reader  recorded  on  magnetic  tape  serves  as  in¬ 
put  to  BASELINE.  This  same  tape  is  later  used  as  input  data  to  the  7094  reduction 
programs. 

Reading  BASELINE  into  the  PDP- 1  computer  starts  the  sequence  of  operations. 
The  program  first  reads  the  title  information  recorded  on  the  film  reader  output  tape 
and  displays  this  as  a  title  on  the  CRT.  This  includes  the  test  identification  numbers, 
the  type  of  data  read  and  time  codes  appropriate  to  the  experimental  data  being  studied. 

The  analyst  then  selects  a  data  channel  with  the  light  pen.  One  of  up  to  four 
channels  of  data  may  be  selected.  The  channels  are  defined  on  the  original  filmed 
record  as  shown  in  Fig.  2. 

The  raw  data  is  introduced  into  the  computer  and  displayed  trace  by  trace  for 
the  inspection  of  the  analyst.  Successive  traces  may  be  displayed  manually  or  auto¬ 
matic  sequencing  is  available  at  several  selectable  rates.  In  this  way  the  raw  data 
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traces  may  be  sequentially  examined.  The  computer  counts  the  traces  displayed  and 
adjusts  the  time  reference. 

When  a  statistical  analysis  is  desired  the  analyst  sets  one  or  more  pairs  of 
gates  on  the  data  trace  to  designate  those  regions  that  are  to  be  included  in  the  statis¬ 
tical  analysis  (Fig.  3).  The  program  then  plots  a  histogram  of  the  distribution  of  the 
deflections  (from  the  calculated  zero  deflection  position  as  determined  by  the  film 
reader)  for  each  data  point  within  the  designated  gates  (Fig.  4)0  The  traces  typically 
contain  about  200  data  points.  The  data  from  the  trace  is  entered  into  the  analysis 
subsequent  to  viewing  so  that  the  analyst  may  reject  a  trace  when  he  wishes  without 
upsetting  the  statistical  analysis.  The  distribution  of  trace  displacements  is  updated 
and  plotted  on  a  trace-by-trace  basis.  The  histogram  is  renormalized  for  every  en¬ 
try  and  the  limits  of  the  distribution  are  automatically  rescaled.  The  program  is  de¬ 
signed  to  handle  both  bipolar  and  unipolar  data. 

The  program  continuously  displays  the  total  number  of  traces  handled,  the  total 
number  of  data  points  used  in  the  statistical  analysis,  the  mean  and  the  standard  devia¬ 
tion  of  the  accumulated  data.  On  demand,  the  computer  will  calculate  the  Gaussian 
distribution  with  the  same  standard  deviation  and  mean  as  the  experimental  data  and 
display  this  plotted  function  along  with  the  measured  distribution  (Fig.  5). 

The  analyst  may  determine  when  a  sufficient  amount  of  data  has  been  included 
in  the  analysis  by  noting  when  the  experimentally  determined  distribution  has  become 
stationary.  Documentation  of  the  significant  statistical  parameters  is  then  initiated  by 
the  analyst  using  a  control  switch.  The  analyst  may  also  designate  any  single  point  on 
the  measured  distribution  curve  with  a  light  pen.  The  value  of  the  integral  distribution 
about  the  mean  up  to  the  selected  value  of  trace  displacement  is  then  calculated  and 
included  in  the  documentation. 

The  program  is  designed  with  "fail  safe"  features.  An  error  in  the  operating 
sequence  will  stop  the  program.  An  error  message  will  appear  on  the  display  to  tell 
the  analyst  how  to  rectify  the  error. 
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Fig.  3.  Radar  Data  Trace  Showing  Typical  Gate  Limits  for  a  BASELINE 
Distribution  of  Analysis. 
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Fig.  4.  Typical  Distribution  of  "Noise"  Data  from  31  Traces. 
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Fig.  5.  Distribution  of  Fig.  4  with  a  Theoretical  Gaussian  of  the  Same 
Mean  and  Standard  Deviation  Superimposed. 
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IV.  Detailed  Description  of  the  Program 

The  data  are  read  into  the  computer  and  right -justified  by  a  division  of  2  .  The 
program  is  capable  of  handling  data  values  of  any  size  provided  they  do  not  exceed  one 
register,  that  is,  one  1 8-bit  word.  However,  the  core  area  allocated  to  the  cumula¬ 
tive  frequency  tally  table  used  to  produce  the  histogram  has  been  limited  to  a  maximum 
range  of  915  decimal  units  or  between  ±  457.  This  range  was  chosen  since,  after  allow¬ 
ing  for  margins,  there  are  915  decimal  increments  across  the  Type  340  scope,  thereby 
permitting  only  915  distinct  quantum  increments,  or  cells,  in  the  histogram  display. 

If  it  is  necessary  to  display  a  larger  range  of  data  within  the  915  increments  available, 
the  data  must  be  regrouped  or  granulated.  To  do  this  the  contents  of  each  two  consec¬ 
utive  cells  in  the  original  tally  table  are  added  together  to  form  one  new  cell.  This 
process  is  repeated  until  the  entire  range  of  the  data  can  be  accommodated  in  the  915 
available  cells. 

A  section  of  the  tally  table  before  and  after  regrouping  is  shown  in  Table  1. 

After  the  data  have  been  read  into  the  computer  and  the  trace  has  been  displayed, 
the  operator  may  designate  up  to  seven  different  areas  of  the  data  trace  to  be  analyzed. 
These  areas  can  be  overlapping,  entirely  within  one  another,  or  completely  different. 

It  should  be  noted,  however,  that  data  contained  within  more  than  one  area  will  be 
accordingly  weighted. 

The  total  set  of  N  data  points  (x  )  will  be  collected  in  the  cumulative  frequency 
tally  table  which  covers  the  region: 

x  <  x  <  xT 

-1  n  I 


Such  that: 


f. 

i 


f  (X.) 
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TABLE  I 


Tally  Table  Before  Regrouping 


Histogram 

Increments  Populations 


-6; 

0 

-5; 

1 

-4; 

3 

-3; 

4 

-2; 

7 

-1; 

8 

0; 

12 

+1; 

9 

+2; 

6 

+3; 

3 

+4; 

2 

+5; 

2 

Tally  Table  After  Regrouping 

■5,  - 6—-3; 

1+0=1 

-3,  -4— -2; 

4+3=7 

-1,  -  2—  - 1 ; 

8+7=15 

0,+l—  0; 

12+9=21 

+2,  +3—+-1 ; 

6+3=9 

+4, +5-* -1-2; 

2+2=4 
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where  fL  is  the  population  in  the  ith  cell  or  quantum  increment,  and  is  the  value  of 
the  ith  cell  or  quantum  increment.  Note  that: 

I 

N  =  2  f. 

-I  1 

This  histogram  is  continuously  displayed  and  modified  as  each  new  trace  is  read 
in,  but  the  display  does  not  include  the  data  in  the  trace  being  viewed.  In  this  manner 
the  operator  can,  if  the  data  are  bad,  skip  a  trace  at  any  time  by  means  of  a  button  on 
the  control  box  and  in  no  way  affect  the  value  of  the  histogram. 

The  standard  deviation  of  the  distribution  is  also  continuously  displayed  and 
updated.  It  is  calculated  with  the  formula: 


The  square  root  is  approximated  by: 


a(n  +  1)  =  (  +  a(n)  )  /2 

where  the  initial  approximation  for  a(l)  is  equal  to  Y/2.  This  approximation  is 
continued  until, 


a(n  +  1)  ~a(n)  =0  or 
a(n  +  1)  -  a(20). 

For  these  calculations  double  and  quadruple  precision  mathematical  routines  are  used. 
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For  the  sum  of  the  x  squared  values,  four  18-bit  registers  have  been  reserved  so  this 

70 

value  can  be  as  large  as  2  -1.  For  the  sum  of  the  x  values,  two  18-bit  registers 

35 

have  been  reserved  so  this  value  can  be  as  large  as  2  -1.  This  also  holds  for  the 

registers  containing  the  total  number  of  points  analyzed.  The  entire  tally  table  is  also 

double-precision,  thereby  enabling  the  frequency  for  any  individual  value  to  be  as  large 
35 

as  2  -1.  The  standard  deviation  and  the  average  are  each  allowed  only  one  register 

since  neither  value  is  expected  to  exceed  the  maximum  data  value  within  a  register. 
These  two  values  and  their  associated  probability  values  are  multiplied  by  1000,  there¬ 
by  allowing  for  three  places  of  accuracy  after  the  decimal  point. 

Other  information  continuously  displayed  is  the  total  number  of  points  analyzed, 
the  maximum  absolute  value  of  x,  and  the  first  and  second  time  words  of  the  trace  then 
being  displayed.  The  analyst  may  also  display  a  theoretical  normal  distribution  super¬ 
imposed  on  the  histogram  with  the  mean  given  by 

+1 

2  (f  )  (x  ) 

-  -I 


N 

2  x 

n 


N 


and  the  standard  deviation  as  defined  above. 

The  values  for  the  theoretical  normal  curve  are  derived  from  the  formula 


G(x.) 


1 

V  2ir 


1 

a 


(x.  -  x)2 


2a 


where 


-x  1  * 

0  - 

[  1  +  a(l)  •  x  +  a(2)  •  x2  +  a(3)  •  x^  ]  i 

This  approximation  is  from  Approximations  for  Digital  Computers  by  Cecil  Hastings, 

p.  182. 
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with: 


a(l)  =  .2507213 
a(2)  =  .0292732 
a(3)  =  .0038278 

with  an  error  usually  better  than  ±  .  0002. 

Tlie  analyst  can  stop  the  program  at  any  time  and  delete  any  area  of  calculation 
or  change  any  given  data  area.  He  also  can  stop  the  calculations  and  then  select  an 
x  value  on  the  histogram  and/or  document  what  he  has  done  so  far,  skip  to  the  next 
file,  return  to  the  beginning  of  the  file  he  is  viewing,  or  simply  continue  from  where 
he  left  off. 

The  document  option  provides  either  an  on-line  typeout  or  a  punched  paper-tape 
output.  Both  include  the  following:  the  title  of  the  file;  the  channel  number  viewed;  the 
number  of  data  points  analyzed;  the  value  of  the  mean  of  the  distribution;  the  probability 
of  the  mean;  the  value  of  the  standard  deviation  of  the  distribution;  the  integral  proba¬ 
bility  for  ±  la,  ±  2a,  and  ±  3a;  the  granularity  of  the  data;  and  the  maximum  and  mini¬ 
mum  data  values.  If  an  x  value  had  been  selected  on  the  histogram  before  documenta¬ 
tion,  the  documentation  will  also  include  the  displacement  from  the  mean  of  the  selected 
x  value  and  the  integral  probability  of  this  selected  bandwidth  about  the  mean. 

A  diagram  of  the  push-button  panel  is  shown  in  Fig.  6. 

V.  Operating  Procedures 

1.  Load  data  tape  on  tape  drive  and  select  #5. 

2.  Turn  off  all  test-word  switches,  address  switches  and  the  extended 

switch. 

3.  a)  Put  up  module  switch  2  and  read  in  paper-tape  binary  for  module  2; 
b)  put  up  module  switch  1  and  read  in  paper-tape  binary  for  module  1;  c)  put  down  all 
module  switches  and  read  in  paper-tape  binary  for  module  0. 
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Fig.  6. 


Control  Box  Switch  Assignments. 
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4. 


Put  0100  in  the  address  switches,  with  all  module  switches  down,  and 


press  the  START  button. 

5.  The  display  on  the  DEC  Type  340  scope  will  be  as  shown  below. 


THE  TITLE 

FOR  THIS  FILE 

CHANNELS 

12  3  4 

NEXT  FILE 

THIS  FILE 

TYPE  IN 

TYPE  OUT 

CONTINUE 

TITLE  -  the  title  record  on  the  tape  for  that  file.  A  light-pen  response 

has  no  effect. 

CHANNELS  1  2  3  4  -  a)  a  light-pen  response  on  a  number  will 

cause  that  channel  in  the  input  data  to  be  selected  to  view  and  analyze,  and  will  turn  off 
all  other  channel  numbers;  b)  a  light-pen  response  on  a  number  which  is  greater  than 
the  number  of  data  channels  on  the  input  tape  will  cause  an  error  message  to  be  dis¬ 
played;  c)  a  light-pen  response  on  the  word  CHANNELS  will  cause  all  numbers  to  be 
displayed  and  delete  any  previous  channel  selection. 

NEXT  FILE  -  a  light -pen  response  will  cause  the  tape  to  be  advanced 
to  the  next  end -of -file  marker. 

THIS  FILE  -  a  light-pen  response  will  cause  the  tape  to  be  reset  at 
the  beginning  of  this  file. 

TYPE  IN  -  a)  a  light-pen  response  will  cause  only  CONTINUE  to  be 
displayed  and  will  wait  for  a  new  title  to  be  typed  in;  b)  a  light-pen  response  on 
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CONTINUE  will  terminate  input  from  the  typewriter;  c)  a  new  title  will  then  be 
displayed. 

TYPE  OUT  -  a  light-pen  response  will  cause  the  title  and  the  channel 
number  selected  to  be  typed  out  for  a  permanent  record. 

CONTINUE  -  a)  a  light-pen  response  before  a  channel  selection  is 
made  will  cause  an  error  message  to  be  displayed;  b)  a  light-pen  response  after 
typing  in  a  new  title  will  terminate  input  from  the  typewriter;  c)  a  light-pen  response 
with  set  title  and  an  appropriate  channel  number  selected  will  cause  the  first  trace  in 
the  selected  channel  to  be  read  into  the  computer  and  displayed. 

6.  The  trace  display  options  are  listed  below  and  are  illustrated  in  Fig.  3. 

A.  Change  the  status  of  the  PROCEED  button  and  the  next  trace  in 
the  selected  channel  will  be  read  in  and  displayed.  No  calculations  are  being  done. 

B.  Determine  the  areas  of  the  trace  that  are  to  be  analyzed  by 
turning  on  the  SET  GATE  button  on  the  panel. 

1.  Turn  on  the  GATE  NAME  button  also. 

a.  Track  the  raster  with  the  light-pen  to  the  desired 


area  of  the  scope. 

b.  Type  in  a  name  no  longer  than  six  characters  for 
that  limit  set,  and  terminate  with  a  carriage  return. 

c.  Turn  off  the  GATE  NAME  button. 

2.  Turn  on  the  HIGH  LIMIT  button  also. 

a.  A  light-pen  response  on  the  trace  will  cause  an 
upper-limit  caret  to  be  displayed  at  the  point  of  response  and  set  the  upper  limit  of  the 
area  to  be  analyzed. 

b.  Turn  off  the  HIGH  LIMIT  button. 

3.  Turn  on  the  LOW  LIMIT  button. 

a.  A  light-pen  response  on  the  trace  will  cause  a 
lower  limit  caret  to  be  displayed  at  the  point  of  response  and  will  set  the  lower  limit 
of  the  area  to  be  analyzed. 


17 


4. 


b.  Turn  off  the  LOW  LIMIT  button 
Turn  off  the  main  SET  GATE  button. 


a.  If  this  button  is  turned  off  before  a  proper  set 
definition  is  made,  an  error  message  will  be  displayed.  Turn  button  back  on  and 
continue. 


b.  If  more  than  one  set  of  limit  areas  is  desired, 
the  above  process  can  be  repeated  for  as  many  as  seven  different  areas.  Each  sepa¬ 
rate  area  definition  is  set  by  turning  off  the  main  SET  GATE  button. 

7.  To  start  the  calculations: 

A.  A  change  in  the  status  of  the  PROCEED  button  will  cause: 

1.  values  in  the  designated  areas  of  the  trace  to  be  ordered 
into  a  cumulative  frequency  tally  table  and  displayed  in  the  form  of  a  histogram; 

2.  sigma  to  be  calculated  and  displayed;  and 

3.  the  average  to  be  calculated  and  displayed  by  means  of  a 


caret  along  the  baseline. 

B.  The  status  of  the  time  counter  can  be  changed  from  the  initialized 
mode  of  operation,  frame  by  frame,  by  turning  on  the  OPERATION  SELECT  button. 

The  different  options  will  be  displayed  as  light  buttons. 

1.  "Frame"  will  have  a  caret  over  it  designating  the  mode 
of  operation  currently  in  use.  This  means  that  a  change  in  the  PROCEED  button  is 
necessary  before  the  computer  will  continue  to  the  next  frame. 

2.  "Slow"  -  a  light-pen  response  will  cause  a  caret  to  be 


displayed  over  the  word. 

3.  "Moderate”  -  same  as  2  above. 

4.  "Fast"  -  same  as  2  above. 

5.  When  the  OPERATION  SELECT  button  is  turned  off,  the 
calculations  will  continue  under  program  control  in  the  mode  of  operation  designated 
by  the  caret  when  the  button  was  turned  off. 

8.  To  delete  the  limit  areas: 
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A.  turn  on  the  SET  GATE  and  DELETE  GATE  buttons. 

1.  The  calculation  will  stop. 

2.  The  names  of  the  limit  areas  will  be  displayed. 

3.  A  light-pen  response  on  either  the  upper  or  lower  limit 
caret  of  the  area  to  be  deleted  will  cause  a  caret  to  be  placed  over  the  name  of  the 
area.  The  area  can  be  changed  simply  by  hitting  a  different  limit  caret  until  the  de¬ 
sired  area  name  has  a  caret  over  it. 

4.  A  light-pen  response  on  anything  below  the  baseline  will 
cause  all  carets  over  names  to  disappear. 

5.  When  the  DELETE  GATE  and  SET  GATE  buttons  are 
turned  off,  the  set  deleted  will  be  the  one  whose  name  has  a  caret  over  it. 

9.  To  see  the  theoretical  normal  distribution  with  the  given  average  and 
standard  deviation  of  the  data  (Fig.  5),  turn  on  the  THEORY  button.  This  button  should 
not  be  left  on  continuously  as  it  will  slow  down  the  calculations  considerably. 

10.  When  this  section  of  data  is  completed,  turn  on  the  STOP  button  and  get 
light -pen  button  options: 

DOCUMENT  -  a)  A  light-pen  response  from  a  point  on  the  histogram 
will  cause  the  displacement  of  the  selected  X  and  the  probability  of  the  selected  band¬ 
width  to  be  added  into  the  documentation;  b)  a  light -pen  response  from  the  word 
DOCUMENT  will  cause  the  typewriter  to  type  out  the  following  items: 

the  title 
channel 

number  of  data  points  = 
mean  = 

probability  of  the  mean  = 
sigma  = 

integral  probability  for  1  sigma  = 
integral  probability  for  2  sigma  = 
integral  probability  for  3  sigma  = 
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granularity  = 
maximum  X  = 
minimum  X  = 

THIS  FILE  -  a)  A  light-pen  response  rewinds  the  tape  to  the  previous 
end  of  file  mark;  b)  the  options  for  continuing  the  calculations  are  the  same  as  at  the 
start  of  the  program;  c)  the  old  tally  registers  are  cleared. 

NEXT  FILE  -  a)  A  light-pen  response  advances  the  tape  to  the  next 
end  of  file  mark;  b)  the  options  for  continuing  the  calculations  are  the  same  as  at  the 
start  of  the  program;  c)  the  old  tally  registers  are  cleared. 

CONTINUE  -  a)  A  light-pen  response  continues  calculations  where 
they  were  stopped;  b)  no  tally  registers  are  cleared. 

11.  At  any  time  that  it  would  clarify  the  display,  the  MOVE  TRACE  RIGHT 
and  MOVE  TRACE  LEFT  buttons  simply  move  the  trace  in  the  desired  direction  one 
increment  at  a  time  until  the  button  is  turned  off. 

12.  For  purposes  of  photography,  the  trace  and  limits  can  be  removed  from 
the  display  be  means  of  the  TURN  TRACE  OFF  button.  Turning  the  button  off  will  re¬ 
turn  the  trace  and  limits.  The  removal  is  only  on  the  displays,  thus  calculations  can 
proceed  in  either  case. 

VI.  Input  Tape  Format 

The  input  tape  is  a  magnetic  tape  written  at  800  bits  per  inch.  The  first  record 
of  each  file  should  be  a  title  record,  identifying  the  following  data,  of  up  to  and  not 
exceeding  150  BCD  characters.  The  second  record  through  to  the  end  of  file  are  binary 
data  records.  There  is  one  record  per  trace  in  each  channel  so  that  if,  for  example, 
there  are  three  channels,  there  will  be  a  record  for  the  trace  in  the  first  channel, 
then  a  record  for  the  trace  in  the  second  channel,  and  finally  a  record  for  the  trace  in 
the  third  channel. 

The  format  for  each  record  is  as  follows: 

Word  #1  -  the  first  time  word  giving  the  number  of  the  time  block  and 
the  channel  number  of  this  trace  in  bits  7-8. 
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Word  #2  -  the  second  time  word  giving  the  number  of  the  trace  within 

the  time  block. 

Word  #3  -  number  of  points  along  the  trace  =  K. 

Word  #4  -  the  first  Y  value  of  the  trace  (not  used). 

Word  #5  -  the  X  value  of  the  baseline  (not  used). 

Word  #6  -  the  leading  edge  of  the  trace  (not  used). 

Word  #7  to  7+K-l  -  the  X  values  of  the  trace  with  the  baseline  removed. 

8  8 
These  values  have  been  multiplied  by  2*  so  in  this  program  they  are  divided  by  2  , 

i.  e. ,  right  justified,  before  all  calculations. 
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APPENDIX: 

Flow  Charts  and  Program  Listing 


23 


BUkj 


QE M  MO 
tj*ps 


«&Nt 

«ib*kt*T 

t?ECOQt>  WMlfM 
ft  UP  TO  *50  &Ct> 

OUQfcCTEta 

t 

IttJkblWiTbTo' 


24 


25 


26 


27 


28 


/BASELINE  STUOY  PROGRAM 


/CONSTANTS 


100 

•0*033 

JMP  0GN 

777777 

FLIPFLOP, 

/1-OISPLAY,  0«C  At.CUL  ATE 

777777 

REOFFN, 

/REOEFINE  BUTTON  STATUS 

777777 

TIME* 

/TIME  BUTTON  STATUS 

10* 

777777 

THEORY, 

/THEORETICAL  BUTTON  STATUS 

777777 

EOF  I  NO » 

/E.OiF.  RFACHEO 

777777 

PROCFO, 

/CONSOLE  BUTTON  STATUS 

001000 

TOI,  1000 

/SLOW  COUNT  FORTIME  OE LAY  CLOCK 

1  10 

000100 

T02,  te0 

/  MOOERATE  COUNT  FOR  T.O1.C. 

777777 

TOC, 

/TIME  OE  L  AY  CLOCK 

777777 

NLIMCHN, 

/NUM0ER  OF  CHANNELS  ON  TAPE 

777777 

CHNSEL, 

/CHANNEL  NUMBER  SELECT  EO  0Y  USER 

1  U 

777777 

T I  MG  AT , 

/TIME  GATE 

777777 

STYLE, 

/ MOCF  OF  OPERATION  0-FRAME,  1-SLOW 

/2-MOOERATE,  3*  FAST 

1  16 

777777 

NCP , 

/NO  CHANGE  process  switch 

MU,  REPEAT 

2,0 

/AVERAGE* 1000. 

777777 

SIGMA, 

/STO.  OE V. *1000. 

777777 

XYNOW, 

/X  ANO  Y  C OCR  01  NATES  LAST  SEEN 

730003 

10,  TYO 

/OUTPUT  INSTRUCTION 

12* 

*75000 

GRANULE, 

SAR  0  /GRANULATION  OF  X  AXIS  ON  HYSTOGRAM 

720025 

OLA-720025 

720125 

CRS-720125 

720227 

CSS-720227 

720225 

OCF-720225 

720026 

ORA- 720026 

720126 

ORC-  72  0126 

721*27 

CSE -  72 1  *  27 

720127 

OSP-720127 

eeeaes 

TAPE  =  5  /INPUT 

ON  TAPE 

UNIT  5 

001000 

CNSTY-000 

/INPUT  TAPE  AT  000  0PI. 

6*0500 

S2m*SZA-SMA 

650I?e 

SNA- SZ  A  I 

TOTAL,  REPEAT 

2, 

0 

SXS,  REPEAT 

4, 

0 

SX,  REPEAT 

2, 

0 

/SYSTEM  MACROS 

OEFINE 

STZ  A, B,C«0«E ,F,G,H,f  I 

IRP  Z  ,,A,B,C,0,E ,F,G,H, I I* 
02M  Z 

ENOIRP 

TERMINATE 

OEFINE 

SET  A ,  P 

LAW  0 

OAC  A 

TERMINATE 
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DEFINE 

SETUP  A  *B 

LAC  B 

OAC  A 

TERMINATE 

DEFINE 

I  SET  A  »B 

LAW  I  B 

DAC  A 

TERM  INATE 
DEFINE 

IF  A,B,C,D 

LAC  A 

ADD  (0 

SZA  I 

JMP  C 

SPA 

JMP  B 

JMP  D 

TERMINATE 

DEFINE 

ENDDFMDDULf  ill 
VARIABLES 

CONSTANTS 

lit 

ML  T 

WORD  JMP  II 

TERMINATE 

DEFINE 

TRACKS 

JSP  I  <LPFOLL*10000 
LID  I  IYPT*10000 

RIL  9 S 

LAC  I  IXPT ♦ 1 0000 

RCL  9$ 

DAC  XYNOW 

TFRM  INATE 
DEFINE 

PUNCH 

CL F  6 

LAT 

RAL  7S 

SPA 

STF  6 

LAC  UYD-I 

SZF  6 

LAC  IPPA-I 

DAC  ID 

TERMINATE 

DEFINE 

RETRACK 

DZM  I  (WRXL  *10000 
DZM  I  ( WR  YP* 1 0000 

IRP  B,,RPXf WPX.RPY, 
SET  I  <B*I0000,500 
END1RP 

SET  I  ( WRXR* 10000, 1 
SET  I  (WRYT *  1 0000  t 1 

terminate 
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/REPLAY  A, B  * C i D « 

/ A “  1  MEANS  CONTINUE  DISPLAYING  WHAT  IS  NOW  CN. 

/A*P  MEANS  STOP  *  »  •  *  *. 

/F*l  MEANS  ENABLE  TFF  LIGHT  PEN 

/B»?  MEANS  DISABLE  THE  LIGHT  PEN 

/B*2  MFANS  LEAVE  LIGHT  PEN  STATUS  ALONF 

/C=EXTFNDEO  ADDRESS  OF  NEW  THING  TO  OISPLAY 

/D*E  XTE  NLE  C  ADDRESS  OF  THING  TO  NOT  OISPLAY 


CEE  I NE  REPLAY  A,°fClO/ZZ 

G*  . 

TEXT  /  C  / 

TEXT  /  D  / 

ZZ. 

ZZ  Z  *  ZZ-G 

G/  /RESET  THE  LOCATION  COUNTER 

H»0 

REPEAT  0IF  VZ  A*  B »  REPEAT  IIF  VZ 

L*  1 


REPF  AT 

I  IF 

VP 

Z  Z  Z-  3  t 

L-R 

REPFAT 

1  IE 

VZ 

ZZZ-3, 

L»0 

/  INSURE 

THIS  CASE 

REPEAT 

IIF 

VZ 

L • E-  1  » 

JSP  I 

(RPIOA 

STOP 

/THE  ABOVE  IS  THE  SHORT  CALL  TO  R  f  PLAY 
/AND  IT  DCCURS  ONLY  FDR  A  REPLAY  I  ,7 

DIO  X  *  CD 
LAC  C  C ♦ e 
L 10  (D*0 
JCA  REPAX 

REPEAT  HE  VZ  A*B,  ii 

REPEAT  01 T  VZ  A*  G  t  A*2»P 

LIO  XCC 


M* 


TERMINATE 

DEFINE  NEXTCRT  A 
LAC  I  A 
JOA  PNXCT 

TERM  IN  ATt 


135  T77777 

2*7111 


PNXCT , 


n  T  t 

CRT  CON , 


DAC  PNXC'TX 

IRP  B  ,,CRTCONf CRTNF,CRTTO,CRTTI ,C»TTF .CRTDDC* 

REPLAY  ) . ?  *  0 1  R 

ENDIRP 

REPLAY  \  f  ? » 0  »  CR  T  CCN 

REPLAY  I 


CRTNF  , 
CRTTO, 
CRTT It 
CRTTE, 

CRTDDC 


?,0, CRTNF 
REPLAY  l,?fkfCRTTO 
REPLAY  1  ( 2  ,C^CR  TT I 
kF  PL  AY  1*2*  P/CM  TTF 
R  f  PL  A  Y  1 »?»0»CRT  DOC 
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209 

200135 

LAC  PNXCT 

209 

600207 

JPP  .  ♦  3 

REPLAY  1 , 2 ,CR  T  CON 

213 

*17111 

JPP  1  PNXC’TX 

2  19 

24032 1 

RP 10  A* 

OAC 

REPXX 

827112 

010 

♦xcc 

*00274 

JPP 

RP  10 

217 

777777 

REPAX, 

... 

/ADDRESS  OF  NFW  THING  TO  01 S  PL  AY 

220 

240321 

OAC 

REPXX 

/SAVE  RETURN  AOORESS 

3271  13 

010 

R  *EP  1 

/SAVE  AODRtSS  DF  THING  TD  NOT  DISPLAY 

230321 

LID 

1  REPXX 

/GET  INSTRUCTIONS 

940321 

1CX 

REPXX 

/EORP  PROPER  EXIT  ACDPFSS 

229 

673001 

RCR 

IS 

/GET  DISPLAY  COPPANO 

640400 

SPA 

/CONTINUE  DISPLAYING! 

600336 

JPP 

REP7 

/NO,  GO  ERASE  PUFFER 

673003 

RFP2, 

RCR 

2S 

/YES*  SO  GET  NEXT  COMPAND 

230 

650400 

SPA 

1 

/SHOULD  THE  LIGHT  PFN  BE  CHANGED 

600236 

JPP 

REP4 

/NO 

027170 

ANO 

1200000 

/PASK  OUT  ALL  RUT  PEN  COMMAND 

047171 

1  OR 

( 4000?0 

239 

671037 

RAR 

5S 

/ALIGN  WITH  340  COPPANT 

240434 

OAC 

PENS  T  S 

/PUT  IN  PEN  STATUS  REGISTER 

200217 

REP  4, 

LAC 

RE  PAX 

/NO,  SO  IS  THERE  ONE  NFW  ENTITY 

640100 

SZA 

241 

600435 

JPP 

RP1? 

/YES,  SO  PUT  ON  LIST 

640100 

SZA 

/BUT  FIRST  BE  SURF  IT  IS  NOT  DUPLICATED 

440432 

RP  1  1  v 

I  0  X 

RPNTR 

/ANO  UP0A1E  P01NTLR 

207113 

LAC 

#  HEP  1 

/IS  THERE  ONE  ENTITY  TO  DELETES 

249 

5SP100 

SZA 

1 

600274 

JPP 

R  P  10 

/NO 

7003S0 

LAW 

BPLY 

/GET  DISPLAY  RUFFC  R  ADDRESS 

247114 

DAC 

»NPNT 

/SET  A  POINTER 

250 

217114 

RP9, 

LAC 

1  NPNT 

/GET  A  DISPLAY  ENTITY 

607  1  13 

SAD 

REP  1 

/IS  IT  THE  ONE  TO  PE  UEL  EtFOl 

6002S7 

JMP 

RPB 

/  YF.S 

650100 

SZA 

1 

/ND,  RUT  ARE  WF  A1  END  OF  1ABLLS 

259 

600274 

JPP 

RP  10 

/YES,  SO  ALREADY  DELETED 

947114 

IOX 

NPNT 

/UPOATE  POINTER 

6002S0 

JPP 

RP9 

/AND  GD  BACK  FOR  NEXT  FNTITY 

207114 

RPH, 

LAC 

NPNT 

/GFT  PRESENT  POINTER 

260 

247  1  13 

OAC 

REP  1 

/AND  SAVE  SO  WE  CAN  POVF 

447  1  14 

1  D  X 

NPNT 

/TABLE  DOWN  DNF  FNTRY 

217114 

LAC 

I  NPNT 

/GET  I ♦ 1  ENTRY 

257  1  13 

DAC 

1  RFP  1 

/PUT  IN  I  TH  ENTRY 

264 

650100 

SZA 

[ 

/AT  END  OF  TABLE  YETS 

*00271 

JPP 

RP100 

/  Yfr  S 

447  1  14 

1  DX 

NPNT 

/NO 

447113 

1  CX 

REP1 

270 

60P262 

JPP 

RPfi+3 

/GO  BACK  FDR  REST  OF  TABLE 

71000 1 

RP100, 

LAW 

1  1 

400432 

ADO 

RPNTR 

32 


275 

242432 

DAC 

RPNTR 

/MOVE  8ACK  ENTRY  POINTER 

2  75 

721427 

RP  1  2  i 

DSE 

/HAS  PREVIOUS  CISPLAY  STDPPl  Di 

402  322 

JMP 

.♦3 

720225 

DCF 

402302 

JMP 

.♦3 

320 

720227 

DSS 

400331 

JKP 

REP80K 

/ND,  SO  CHECK  IF  TOO  LONG 

T I  0764 

REPS, 

L  A  4 

1  50  2  • 

247  I  IS 

DAC 

RE  P9*  9K 

/RESET  ERROR  COUNTER 

325 

210433 

LAC 

1  NPNTR 

4S0 122 

S7A 

I 

/HAS  TA8LE  PEEN  EXHAUSTED 

402322 

JMP 

REP6 

/YES,  SO  CD  RESET 

240217 

DAC 

RE  PAX 

310 

2  I  02 I 7 

LAC 

I  REP  AX 

227172 

AND 

(-  I427Z 

842434 

I  OR 

PENSTS 

2S22I7 

DAC 

I  REPAX 

3  15 

220217 

LIO 

RE  PAX 

542433 

ICX 

NPNTR 

/IPOATE  TABLE  POINTER 

720225 

DLA 

/LOAD  DISPLAY  ADDRESS  AND  S  r  AR  T 

227  1  1 2 

L  10 

XCD 

320 

410321 

JMP 

I  1 

400321 

REP  XX, 

JMP 

. 

/RETURN 

700350 

RE  P  6  , 

LAW 

BPLY 

/INITIAL  ADORESS  DE  DISPLAY  BUFFER 

242433 

DAC 

NPNTR 

/RESET  POINTER 

325 

102324 

XCT 

RFP5+2 

/IS  THERE  ANYTHING  TO  DISPLAY! 

442122 

S  Z  A 

400327 

JMP 

REPS+S 

/YES 

227112 

LID 

XCC 

330 

6  I  0  32  I 

JMP 

I  RE  P  XX 

/NO,  SD  RETURN 

227  1  12 

REP08K, 

LIO 

XCC 

447  1  15 

I  SP 

REP99K 

4  1 2  32  I 

JMP 

I  REPXX 

/NORMAL  Rf  TURN 

335 

720225 

DCE 

400322 

JMP 

Rt  PS 

/CISPLAY  HAS  STOPPED  TOO  LONG,  SD  ERROR 

722352 

REP7, 

LAW 

BPLY 

262342 

DAP 

.♦I 

340 

542222 

OZM 

. 

442342 

ICX 

1 

527173 

SAS 

(DZM  RPLY+49. 

400342 

JMP 

t_  i 

345 

702352 

LAW 

BPLY 

/GET  DISPLAY  BUFFER  ADDRESS 

240433 

DAC 

NPNTR 

/RESET  PICKUP  POINTER 

240432 

DAC 

RPNTR 

/RESET  END  OF  LIST  POINTER 

402227 

JMP 

REP2 

/CONTINUE 

8PLY, 

Rt  PEAT  50. ,  0 

/CISPLAY  BUFFER  CONTAINS  ADDRESSES  OF  SC 

/ADDRESS  OF  OISPLAY  E  N  T  I  T  I  E  c 

4  32 

200350 

RPNTR , 

BPLY 

/POINTER  TO  NEXT  OPEN  REGISTER 

822350 

NPNTR, 

8PLY 

/POINTER  TD  NEXT  ITEM  TD  DISPLAY 

4  35 

200222 

PENSTS, 

0 

/PEN  STATUS  IENABIE  OR  OISAPLE) 

702352 

RP  12, 

LAW 

BPLY 

/INITIALIZE  POINTER 

24  7  i  14 

DAC 

NPNT 

/TO  START  OE  TAPLF 

217  1 14 

LAC 

I  NPNT 

/GET  NEXT  ENTITY 

440 

800217 

SAC 

REPAX 

/COMPARE  TO  NEW  ENTITY 

BUFFER 
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441 

400243 

JMP 

R  P  1 1  ♦  I 

/ENTIIY  IS  ALREADY  BEING  DISPLAYED 

450  100 

S/A 

I 

/ARE  WF  AT  FNP  DF  TABLE 

400446 

JMP 

•  *3 

/YES 

till* 

*47114 

IPX 

NPNT 

/GC  LOOK  AT  NEXT  ENTITY 

400437 

JMP 

RP  12*2 

/CONTINUE 

200217 

LAC 

RF  PA  X 

/NEW  FNTITY 

250432 

DAC 

I  RPNTR 

/SO  ENTER  IT  INTO  TABLE 

458 

400242 

JMP 

R  P  1 1 

/PETUPN  TO  INDEX  POINTER 

/TAPE  P  C-U 1  INFS  AND  MACROS 
/NOTE  THAT  2  *£  V  t  N  PARITY 
/  1-ODD  PARITY 

/  e?e  OCTAL  MEANS  P2«  kpi 

/  556  OCTAL  MEANS  556  «P  I 

/  ?ee  octal  means  200  bpi 

CFFINE  REWIND  UNIT 

LAW  UNIT  /TAPE  UNIT  NUMBER 

DAC  I  IOC  CUNT ♦  10000 
JSP  I  ICCCRE W+1PPPP 


nfEINE  TAPWPT  DFNSIIY, UNIT , PARI TY,F IRST, l AST, ENDPOINT 
RFPEAT  1 1 F  VZ  OF  NS  I  T  Y-  800  ,  LAW  2 

RFPFAT  1 1 F  VZ  Of NS  I TY-220  *  CLA 

REPEAT  1 1F  VZ  DENSITY-556,  LAW  I 

DAC  I  I  OOCDEN*  10000  /CENSITY  { 800, 5  >  6 , 0R2PP 1 

LAw  UNIT  /LNIT  NUMBER  ID-7) 

0  AC  I  I  CGOUN  T ♦ 1 00  00 

LAW  PARITY  /PARITY  (EVEN  DR  ODD) 

SUB  I  1 

OAC  I  (OCCPAR*  1  0  (* «) 

JSP  T  IOCCWR+10W 

FIRST  /ADDRESS  OF  START  OF  BLOCK 

LAST* 1  /ADDRESS  CF  END  OF  BLOCK 

JSP  BAOTAP  /PAD  TAPE  RETURN 

FNDPOINT  /END  OF  TAPE  RE-TUP N 


TERM  INATE 
PFF INF 
RE  PE  AT 
RF  PE  AT 
PFPE AT 


TAPRED  DF NSITY, UN  IT. PAPITY, FIRST, LAST, EOF 
1 1 F  VZ  DFNSITY-8PP,  LAW  ? 

1 1 F  VZ  Of NSI TY-2E0 ,  CLA 

f I F  VZ  Of  NS  I TY-5  56 ,  LAW  I 

DAC  I  IQQOOFN*  100PP  /TAPF  DENSITY 

LAW  UNIT 

DAC  I  I  CO  CUNT  *10000  /TAPt  UNIT  NUMBER  I»?-7) 

LAW  PARITY 

SU8  (I  /PARITY  (OUr  OR  EVEN) 

DAC  I  IOOCPAR*  I C  ft  0 

JSP  T  IQOCRD+IPftftP  /GO  REAt:  THE  TAPE 

FIRST  /STARTING  ADDRESS  OE  BLOCK 

LAST*  1  /ENr  ADDRESS  OF  fil'EFEP 

JSP  BAPTAP  /eAr  TAPE  RETURN 

FCF  /END  CF  FILE  RF  TURN 

TERM  INATt 
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DEFINE  TAPSPC  DE NS  I T Y , UN  I T % P AR I  TV , NUP , E OF 


REPEAT 

II F  V/ 

OENSITY-800, 

LAW  2 

REPE  AT 

1 1  F  VZ 

DENSITY-200, 

LAW  0 

REPEAT 

I  IF  VZ 

OENSITY-556, 

LAM  I 

OAC 

I  ( QOCDEN  +  10000 

/TAPE  OENSITY 

LAW 

UNIT 

OAC 

I  (QQCUNT ♦ 1 0000 

/TAPE  UNIT  NUPBER  10- 

LAW 

PARITY 

SUB 

I I  /TAPE 

PARITY 

OAC 

1  ( OOCP  AR ♦  1  00?0 

JSP 

I  (QQQSP* 10000 

/GO  SPACE  THE  RECORDS 

NUP 

/NUPBER  OF  RHCOROS  TO  SPACE 

JSP 

BADTAP  /PAD 

TAPE  RETURN 

EOF 

/ENO 

OF  F  ILE  RETURN 

TERMINATE 


/ROUTINE  FOR  TYPING  OUT  CHARACTERS 
/ JDA  TYPE  WITH  EXTENDED  ADDRESS  IN  AC  AND 
/NUPBER  OF  CHARACTERS  TO  TYPE  IN  ID 


k>  S  1 

777777 

TYPE, 

/E  XTENOEO  AOORESS 

240507 

OAP 

T  1 

/PROGRAM  COUNTER 

120511 

OIO 

NUPBER 

/number  OF  CPARACTERS 

*5* 

840510 

DZP 

COUNT  X 

/NUMBER  OF  TYPED  CHARACTERS 

110003 

LAW 

I  3 

240512 

OAC 

P3 

/SINCE  3  CHARACTERS  PER  WORD 

T24074 

EfP 

460 

230451 

T3, 

L  10 

I  TYPE 

462077 

T2, 

RIL 

6  S 

32  7  1  16 

DID 

83 • 1 P2 

170550 

JOA 

9PT 

464 

227116 

L  10 

83  1P2 

PUNCH 

476 

440510 

I  OX 

CDUNTX 

600511 

SAD 

NUPBER 

/TEST  IF  PAVE  FINISHED  TYPING 

500 

400507 

JPP 

T  1 

/YES  -  LEAVE 

460512 

ISP 

P  3 

/NO  -  TEST  IF  HAVE  FINISHED  W 

400461 

JPP 

T2 

/ND  -  CONTINUE 

440451 

ICX 

TYPE 

/YES  -  GD  CN  TO  NEXT  WDRC 

504 

110003 

LAW 

I  3 

/YES  -  REPLACE  PINUS  3 

240512 

OAC 

P3 

400460 

JPP 

T  3 

600507 

T  1  , 

JPP 

*• 

/LEAVE 

510 

777777 

COUNTXf 

777777 

NUMBER, 

777777 

P3, 

000000 

CPT  , 

0 

/DECIPAI  POINT  ROUTINE 

514 

247117 

OAC 

OP»XXX 

140547 

OZP 

0P1 

227176 

LID 

(CHARACTER 

R- 

200513 

CP4  , 

LAC 

OPT 

520 

440200 

SPA 

170550 

DPO  » 

JCA 

9PT 
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S22 

6*0200 

76  I02e 

CP0, 

52* 

2*0513 

2*0530 

6*7177 

167200 

CP  3, 

S30 

000000 

5205*7 

60052S 

*63777 

DP2  ♦ 

S3* 

663777 

*50100 

200S23 

6*3777 

S*i 

663777 

I00S21 

200530 

800513 

S** 

617  117 

2*05*7 

*00517 

DPX  * 

000000 

OP  1  * 

550 

000000 

260601 

710770 

673077 

9PT , 

SS* 

227201 

673777 

260557 

672000 

560 

6*2000 

020552 

163777 

663077 

S6* 

J00123 

ZZGF 

S  7 1 

720033 

S7  * 

663777 

027202 

627202 

I00S6S 

6  00 

200550 

600000 

9PX  , 

SPA 

CPA 

CHARACTER  R 0 

OAC 

DPT 

OAC 

0P2 

MUL 

I  1 

01  V 

(  10. 

0 

SAS 

CPI 

JPP 

0P3 

RCL 

9  S 

RCL 

9S 

SZA 

I 

LAC 

OP0 

RCL 

9  S 

RCL 

9S 

XCT 

DPO 

LAC 

DP2 

S  A  0 

OPT 

JPP 

I  DPX  XX 

OAC 

DPI 

JWP 

DP* 

0 

0 

DAP 

9  P  X 

LAW 

I  770 

RCR 

6  S 

L  10 

I2S20P2 

RCR 

9  S 

OAP 

.♦I 

RIR 

SPI 

ANO 

9PT+2 

RCL 

9  S 

RCL 

6S 

XCT 

10 

REPLAY  1,0  /DISABLE  T^E  DISPLAY 

CKS 

RCL  9S 
AND  (  1  20 
SAS  (  1 20 

JNP  ZZGF  /KEEP  DISPLAY  GOING 

LAC  9PT 

JPP 


/SUP ROUTINE  TD  RESPOND  TO  AN  INPUT 

/ENTRY  BY  A  JO  A  TESPDND  WITH  0  IN  AC  If  LIGHTPEN,  I  I 
/ROUTINE  EXITS  N  LOCATIONS  AFTER  THE  JSP  AS  FOLLOWS 
/  0*  NO  RESPONSE 


/ 

1* 

LI 

IGHT 

PEN 

/NEXT 

FILE 

/ 

2- 

LI 

IGHT 

PEN 

/  CCNT 

INUE 

/ 

3  * 

LI 

IGHT 

PEN 

/TYPE 

OUT 

/ 

** 

LI 

IGHT 

PEN 

/TYPE 

IN  T 

F  BUTTONS 
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/  5- 

L  IGHT 

PEN 

/CHANNEL 

/  6-7- 

8-9-  LIGHT  PEN 

/CHANNEL  K  C  •  (  1,2, 3, M 

/  ie« 

LIGHT 

PEN 

/FRAME 

/  1 1- 

L  IGHT 

PEN 

'SLOW 

/  1?* 

L  IGHT 

PEN 

/MODERATE 

/  13- 

L  IGHT 

PEN 

/FAST 

/  1*« 

LIGHT 

PEN 

/THIS  FILE 

/  IS- 

L  IGHT 

PEN 

/CURVE 

/  16- 

L  IGHT 

PEN 

/DOCUMENT 

/  17- 

L  IGHT 

PEN 

/hystogram 

/  18- 

LIGHT 

PEN 

/A  NAME 

/  19- 

L  IGHT 

PEN 

/TRACE 

/  20- 

L  IGHT 

PEN 

/A  LIMIT 

/  1  CONSOLE 

BUTTON 

/REDEFINE 

/  2  CONSOLE 

BUTTON 

/CELETE 

/  3  CONSOLE 

8UTTCN 

/NAME 

/  *  CONSOLE 

BUTTON 

/UPPER 

/  5  CONSOLE 

BUTTON 

/LOWER 

/  6  CONSOLE 

BUTTON 

/STOP 

/  7  CCNSOLE 

bUTTCN 

/THEORETICAL 

/  B  CONSOLE 

RUT  TON 

/LIMITS 

/  9  CONSOLE 

BUTTON 

/TIME 

/  10  CONSOLE 

BUTTON 

/PROCEEO 

DEFINE 

RESPOND  VHICH, 

NONE , A  1 »A2«A3«AR,AS, A6«A l ,A8,A9,A10«A 1  1, 

zz. 

LAW  WHICH 

/0-LIGHT  PEN,  1-BUTTON 

JCA  TESPONO 

OEE INE 

PASS  A 

REPEAT  HE  P, 

REPEAT  0 I F  VZ  A*0,  jMP  A 

/LEGAL 

RESPONSE ,  SO  EXIT 

ACCORDINGLY. 

REPEAT  1 I E  P, 

REPEAT  1  IF  VZ  A+0,  JMP  Z/»2 

/ILLEGAL  RETURNS  ARE  TREATEO  AS  *NO  RESPONSES*. 

REPEAT  PIE  Pf  0 

/ZERO  INSERTED  ON  PASS  1  TO  KEEP  LOCATION  COUNTER  HAPPY 
TERMINATE  PASS 

1  RP  8,,NONE,A1,A2*A3,A>4,A5,A6,A7,AP,A9,AI<4,A]  1(A12,A13,A1*,A1S,AI6,A1 
PASS  8 
ENOI RP 

EQUALS  PASS, NULL 
TERMINATE 


6*2 

9 77 777 

PRIO, 

2*7120 

OAC 

»  PRIX 

AM 

200602 

LAC 

PR  ID 

•*0200 

SPA 

7*1000 

Cm  a 

2*7121 

OAC 

*  PRAA 

6  Ifl 

207121 

LAC 

PR  AA 

•27200 

SUB 

1  10. 

•*0200 

SPA 

•00635 

JMP 

PR  1 0 

61* 

•27203 

SUB 

I  90. 

•*0200 

SPA 

•006*5 

JMP 

PR  100 

•2720* 

SU8 

(900. 

37 


620 

6*0200 

SPA 

6006*7 

JHP 

PR  1 000 

200602 

LAC 

PR  10 

6*7177 

MUL 

(  1 

62* 

167205 

01  V 

near. 

160000 

NOP 

127122 

010 

•  PR  1  S 

170513 

JCA 

DPT 

630 

207122 

LAC 

PRIS 

6*0200 

SPA 

V61000 

CKA 

2*0602 

OAC 

PR  10 

630 

60060* 

JHP 

PR10+? 

620651 

PR  1  e. 

JSP 

PRSG 

227206 

L  10 

120 

170550 

JOA 

9PT 

6*0 

227206 

1 1 0 

t2e 

170550 

JOA 

9PT 

207121 

LAC 

PR  AA 

170513 

JOA 

DPT 

6M 

617120 

JHP 

I  PR  I  X 

620651 

PR  100. 

JSP 

PRSG 

6006*0 

JHP 

PR  10+  3 

620651 

PR  1000, 

JSP 

PRSG 

650 

6006*2 

JHP 

PR  10+  5 

651 

260661 

PR  SG « 

0  A  P 

.♦8. 

200602 

LAC 

PR  1  0 

6*0*00 

SNA 

65* 

600657 

JHP 

.♦3 

227176 

L  10 

(CHARACTER 

R- 

170550 

JOA 

9PT 

227207 

L  1 0 

(CHAk ACTER 

R. 

660 

170550 

JOA 

9PT 

600000 

JHP 

662 

277777 

TESPONO, 

/0*  LIGHT  PEN,  1 

261173 

DAP 

RESPOX 

/SAVE  RETURN  AOORESS 

66* 

200662 

LAC 

TESPONO 

/GET  CODE  FOR  WHAT  TO  CHECK 

6*0100 

SZA 

/LIGHT  PEN  OR  BUTTONS 

601  17* 

JHP 

BUTTO 

/BUTTONS 

120127 

CANE  , 

OSP 

/LIGHT  PEN  BREAKS 

670 

691173 

JHP 

RESPOX 

/NOT  A  LIGHT  PEN  INTERRUPT 

720126 

ORC 

/SAVE  COORDINATES 

120  1 22 

010 

X  YNOW 

/Of  POINT  JUST  SEEN. 

720026 

ORA 

/GET  AOORESS 

67* 

720225 

OCF 

/clear  all  the  flags 

120125 

ORS 

/ANO  NOW  RESULT  THE  DISPLAY 

443777 

R  CL 

9  S 

463777 

RCL 

9  S 

700 

*27177 

see 

1  1 

2*7123 

OAC 

r  »espp 

/SAVE  THE  TABLE  ADDRESS 

mi  MON 
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CE  F l NE 


TESTN  A,R,C 
LAC  RESPP 
SUB  I  A 
SMA  I 
JMP  .*7 
A  CD  (A 
SUB  IB 
SZM 

JMP  .*3 
LID  1C 
JMP  GDNOW 

terminate 

TESTN  CAT  A, OATA+200D. , 17. 

TESTN  CHANNELS .CHANNELS+S ,S 
TESTN  CHANNELS  5, CHANNELS  6,6 
TESTN  CHANNELS  6 , CHANNELS  7,7 
TESTN  CHANNELS  7, CHANNELS  fl.,8. 
TESTN  CHANNELS  R. .CONTINUE, 9. 
TFSTN  CONTINUE,  NE  XTF I L  E , 2 
TESTN  NEXTF I LE , TYPDUT , 1 
TFSTN  TYPDUT, TYP1 N ,3 
TESTN  TYPIN.THISEILF.U 
TESTN  THIS.  FILE, DOCUMENT,  14. 
TESTN  DOCUMENT, FRAME, 16. 

TESTN  FRAME  ,  SLOW  ,  ]VS. 

TESTN  SLOVi,  MODERATE  ,11. 

TFSTN  MCLEPATE ,F AST, 12. 


TESTN  FAST, INFO, 13. 

TESTN  TRACE ,THYTRL, 19. 

TFSTN  LIMI TS, LIMITS+8*19. ,20. 


1166 

76*4000 

CLI 

143777 

GONOW, 

RCL 

9  S 

/GET  EXIT  CODE 

1170 

463777 

RCL 

9S 

401173 

ADO 

RFSPCX 

/INDEX  FX1T  ADDRESS 

241  173 

DAC 

PE  SPOX 

/FORM  RETURN  A DOR  ESS 

401  173 

RESPDX, 

JMP 

. 

/RETURN 

1  17*1 

762200 

BUTTD, 

L  AT 

463777 

RCL 

9S 

663777 

RCL 

9  S 

160200 

CLA 

DEFINE  TEST  A 
RIR  IS 
SPI 
LAW  A 
JMP  GGNDW 

TERMINATE 


TEST 

1 

/T.W. 

1  7 

PFDF  FINE 

T  F  ST 

2 

/  T .  K . 

1  6 

* 

DEI FTE 

TEST 

3 

/T.K. 

IS 

« 

NAME 

TEST 

U 

/  T  .W  . 

14 

• 

UPPER 

TEST 

5 

/  T  ■  W  ■ 

13 

* 

LOWFR 

39 


TEST  6 
TEST  7 
TEST  8. 
TEST  9. 
TEST  10, 


12S0 

41 1173 

JMP  I  RESPOX 
EQUALS  TEST  » NULL 

12S 1 

401173 

GGNOW , 

ACO  RESPOX 

241173 

OAC  RESPOX 

411173 

JMP  I  RESPOX 

START 


/t.w;  1?  •  STOP 
/T.W.  11  -  THEORETICAL 

/T.W.  10  •  LIMITS 
/T.W;  9  •  TIME 
/T.W.  8  •  PROCEEO 
/ T • W.  7 “OUTPUT  OPTION 
/T.Wi  6  •  SKIP  FRAME 
/NO  RESPONSE 

/A  9UTTON  WAS  OOWN 
/SO  FORM  RETURN  ACORESS 
/ANO  EXIT 
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PASELINE  2 


12  54 

1260 

1 2  63 
126* 

1270 

1273 

127* 

1300 

1  30  M 

1310 

1312 

1316 

1320 

1  32  * 


DEFINE 

CPR 

SUBR 

OAC 

I  ISURR 

JSP 

I  (  SU'PR  ♦  l 

terminate 

/JSP  »CALCUL» 

262 520 

CALCUl, 

0  A  P 

RETURN 

/PROGRAM  COUNTER 

201562 

LAC 

N 

/NO.  SETS  TO  PROCESS  IN 

TR  ACE 

650100 

S/A 

I 

/TEST  IE  HAVE  BEEN  SET 

602  ise 

JMP 

THOR 

/NO-GO  TO  THEORETICAL 

761000 

CPA 

/YES-COMPLIMENT 

241735 

OAC 

NN 

/E0«  I  NOE  X  J  NG  LATER 

NSEC, 

REPLAY  1,2 

/KFfcP  01  SPLAY  GOING 

207256 

LAC 

I  SCTOSC 

/FIRST  Y  VALUF  ON  SCOPE 

*31563 

SUR 

I  Y 

/HIGH  Y  LIMIT 

147177 

PUL 

<  1 

367124 

b  1  V 

B*CPY 

760000 

NOP 

*01532 

ACO 

W  7 

/AODRESS  OF  1ST  X  VALUE 

241533 

OAC 

COUNTER 

/BEGINNING  CE  DESIRED  X 

VALUFS 

REPLAY  1,2 

/KEEP  01  SPLAY  GOING 

211563 

LAC 

I  Y 

431564 

SUR 

I  Y*  I 

/NO.  PTS.  W/I  LIMITS 

547177 

MUL 

(  1 

167124 

m  v 

POBY 

760000 

NCP 

407177 

ACO 

(  I 

/KANT  INCLUSIVE  SEC110N 

761000 

CPA 

241734 

OAC 

NUK 

/FOR  I NOE  X | NG  LATER 

761000 

CPA 

651600 

CLO 

400125 

ACO 

TOTAL 

/TOTAL  NO.  OF  X  SUR  I 

027257 

A  NO 

(377777 

240125 

OAC 

TOTAL 

/ L CVi  OROER  REGISTFR 

641000 

SZO 

440126 

ICX 

TOTAL ♦ 1 

/HIGH  OROER  REGISTER 

231533 

LOOP, 

L  10 

I  COUNTER 

/X  SUB  I  VALUE 

207260 

L  AC 

(  Sx 

/AOORESS  C f  SUM  X  SUR  1 

DPR 

CAP 

/CCURLE  PRECISION  AOO 

211533 

LAC 

I  COUNTER 

#51533 

MUL 

1  COUNTER 

/X  SUR  1  SQUARED 

672001 

R  IK 

IS 

/ E  I  X  SIGN  BIT 

J  2 1 535 

010 

TEMPI 

/LCN  OROER 

241536 

OAC 

TEMPI «■! 

/HIGh  OROER 

341537 

C/M 

TEMP  1 ♦? 

34 1540 

D/M 

TEMPI  »3 

41 


1  32* 

141541 

OZM  TEMP2 

141542 

DZH  TEMP2* 1 

141 543 

DZM  T  E  MP2  *2 

1330 

141544 

DZH  TE HP2 ♦ 3 

207263 

LAC  (SXS 

/ADDRESS  DF  CUMULATIVE  X  SO. 

227264 

LID  (TEMPI 

/ADDRESS  DE  SQUARE  0  VALUE 

DPR  DOAO 

/ 4  REGISTER  PRECISION  ADO 

REPLAY  1,2 

/KEEP  DISPLAY  GOING 

1336 

211533 

LDDP1,  LAC  I  COUNTER 

450200 

SPA  1 

1340 

40 1344 

JMp  .+4 

%0  7 1 77 

ADD  (  1 

450100 

SZA  ( 

401346 

JMP  .+3 

134% 

100124 

XCT  GRANULE 

/SHIFT  INSTRUCTION  TD  THE  RIGHT 

440200 

SPA 

4271 77 

SUB  (  1 

241535 

DAC  TEMPI 

1350 

440200 

SPA 

741000 

C  M  A 

427267 

SUB  1457. 

/MAXIMUM  POSSIBLE  FOR 

440500 

SZM 

/SCOPE  DISPLAY 

135% 

417270 

JMP  1  (RESET* 

10000 

1355 

201535 

LAC  TEMPI 

/CORRECT  X  VLAUE 

465001 

SAL  1 S 

/SINCE  ODUBLI  PRECISION 

%0  727 1 

ADD  (ZLOC 

OPR  0 1  NOE  X 

/TO  GET  DOUBLE  PRECISION  1NOEX 

1362 

%4 1 533 

ICX  COUNTER 

/TD  NEXT  X  SUB  ( 

%4 1 734 

ISP  NUM 

/TEST  IF  HAVE  FINISHED 

136% 

601312 

JMP  LDCP 

/NO-CDNT I NUE 

REPEAT  2 * 

I D  X  Y  I  OX  Y*  1 

%4 1735 

I  SP  NN 

/TEST  IE  HAVE  FINISHED  TRACE 

401262 

JMP  NSEC 

/ N 0— 00  NEXT  SECTION 

REPLAY  1.2 

/KEEP  DISPLAY  GOING 

137% 

207274 

LAC  (YXYXL 

241563 

DAC  Y 

207275 

LAC  (YXYXL ♦ 1 

241564 

DAC  Y ♦  1 

1400 

200133 

LAC  SX 

/LDM  ORDER  PART 

547205 

MUL  (1000. 

/FDR  ACCURACY 

472001 

R1R  IS 

820  1 17 

DID  MU 

140% 

240  120 

DAC  MU* 1 

200134 

LAC  SX*1 

/HIGH  OROER  PART 

6%  7205 

MUL  (1000. 

467777 

SCL  9 S 

1%  10 

§67377 

SCL  8S 

/CANNDT  BE  MORE  THAN  1  REGISTER 

42 


1411 

000120 

ADO 

MU*  1 

240120 

DAC 

MU*  1 

/HAVE  SX-1000.  IN  MU 

1413 

207276 

LAC 

1  ML 

1414 

227277 

L  10 

1  TOTAL 

DPR 

DPCIV 

14  IT 

240117 

DAC 

MU 

1420 

320120 

DID 

MU*  1 

/AVERAGE  TIMES  10?a. 

200125 

LAC 

TOTAL 

427177 

sue 

(  1 

241535 

0  A  C 

TEMPI 

1424 

#40200 

SPA 

*01522 

JMP 

BORROW 

200  126 

LAC 

TOTAL* 1 

241536 

OAC 

TEMPI *1 

1430 

207260 

TP,  LAC 

(SX 

227260 

LID 

(SX 

DPR 

OMUL 

/4  REGISTER  PRODUCT 

143% 

00 154 1 

TEMP2 

/ACCRFSS  OF  PRODUCT 

207304 

LAC 

(  TEMP? 

/AODRFSS  CF  LOW  ORDER 

227277 

LID 

( total 

/AUORfSS  OF  LOW  ORDER 

OPR 

DPC1  V  4 

1441 

101541 

TEMP2 

701541 

LAW 

TEMP? 

2*  1-445 

DAP 

.♦2 

1444 

2*1447 

DAP 

.♦3 

200000 

LAC 

761000 

CPA 

240000 

OAC 

.  -  , 

1450 

441447 

1  cx 

1 

44  1  445 

1  OX 

.-4 

*27307 

SAS 

(LAC  TE  M  P2*4 

*0 1 445 

JPP 

.-6 

1454 

227263 

LID 

<  sxs 

207304 

LAC 

( TEMP2 

/ A  OCR  E  SS  OF  LOW  ORDER 

DPR 

ODAD 

/ 4  PRECISION  ADO  1 T IDN 

1  RP 

A,  ,0, 1 

,2,3* 

A,,  LAC 

T  E  MP? ♦ A 

DAC 

I  (MAC 

1 00f!0*4*A 

ENDIRP 

1461 

201541 

0,  LAC 

T  E  M  P?  *  0 

257310 

DAC 

1  (MAC 

10000*4*0 

201542 

1 , 

LAC  T  EMP2  *  1 

257311 

DAC 

I  (MAC 

10000*44 1 

1464 

201543 

2, 

LAC  T  F  MP2*  2 

257312 

DAC 

1  (MAC 

12000*4*2 

201544 

3 

LAC  T  E  M  P  2 ♦ 3 

257313 

DAC 

I  (MAC 

1  0000*4*  3 

1470 

710012 

LAW  I  10. 

247135 

DAC 

FL1PF 

*37314 

JSP 

1  (XSHIfT*1200V) 

4*7135 

1  SP 

FL1PF 

14  74 

*01472 

JMP 

*-2 

1  RP 

A  ,,0 , 1 

,2,5* 

A,,  LAC 

I  (MAC* 

1 0000*4*A 

DAC 

Tf MP2*A 

ENDIRP 

1475 

217310 

0,  LAC 

1  (MAC* 1 0P00*4*C 

241541 

OAC 

T  FMP2  *0 

217311 

1  , 

LAC  I  (MAC* 10000*4*1 

1500 

241542 

DAC 

T  F  M  P? ♦  1 

>40  - 


43 


I50W 


1513 


217312 

2. 

l  AC 

[  (MAC* 

2U1 5U3 

OAC 

TI-PP2  *2 

217313 

3 

LAC 

1  (MAC*  l0PfV«li»3 

2H15UU 

D  AC 

T  F MP2 ♦ 3 

20730R 

LAC 

( T I HP2 

22726W 

L  I  0 

< TFMP  1 

OPR 

DPTlVf  ♦  lfc’IN? 

A 

/CUOTIFNT  IN  AC 

OPR 

SORT 

/GIT 

STANOARO  DEVIATION  FRO*  VARIANCE 

200  1 2 1 

LAC 

SI  CPA 

44 


151% 

64732 l 

MUL 

(31. 

167177 

01  V 

{  1 

NOP 

240  12  1 

0  AC 

SIGMA 

replay  1,2 

/KEEP  0  I  SPLAY  GOING 

1521 

601742 

JMP 

COMPUTE 

/TO  L 0 AO  BUFFER  FOR  HISTOGRAM 

1522 

107171 

BORROW,  ACO 

ueeeee 

/BORROW  FORM  HIGH  ORDER 

241535 

OAC 

TEMPI 

152% 

710001 

LAW 

I  1 

400126 

AOO 

TOTAL ♦ 1 

24 1536 

OAC 

TEMP  1+ I 

401430 

JMP 

TP 

/TO  CALL*.  JSP  CALCUl 
/  RETURN 
/ 

/ 

/INITIALLY*.  SX  SET  TO  ZERO  ', REGISTER  WITH  SUB  XI 
/  SXS  SFT  TO  ll RC  ‘.REGISTER  WITH  SUB  (XI 2) 

/  TOTAL  SET  TO  ZERO  ‘.TOTAL  NUMBER  OF  PTS.  IN  SAMPLE 

/ 

/ 

/INPUT'.  N  NUMBER  OF  SETS  OF  LIMITS 
/  YH 1  HIGH  Y  LIMIT 
/  YL 1  LOW  Y  LIMIT 
/  YH  2 
/  HL  2 
/  THROUGH 
/  YHN 
/  YLN 
/ 

/ 

/OUTPUT'.  CUMMULATIVE  STO.  CIV.  IN  REGISTER  ‘SIGMA* 

/  CUMMULATIVE  EREOUENCEY  CURVE  IN  BUFF 1R 
/  AREA  ‘TABLE*  PLUS  NEXT  183eD  LOCATIONS 
/  W1TF  BASELINE  FREOUENCY  AT  LOCATION 
/  • Z  LOC '  WHICH  IS  IN  “IOCLE  OF  TABLE. 

/ 

/ 

/ 

/FORMULAS'.  SIGMA-SO.  RT.IISUM  X  SUB  I  SO. -(SUM  X  SUB  I*  SUM  X  SUB  I  I  /N I  /  ( IN- 1  I  SO 
/  SO.RT . ( Y)  •  (Y/AN  -  A N ) / 2 

/LOCATIONS  ANO  CONSTANTS 


010000 

MODULE  *  1 0  200 

1530 

830002 

W  3 , 

3e002 

030003 

W  4 , 

30003 

830006 

W7, 

30006 

777777 

COUNTER , 

153% 

777777 

TEMP, 

777777 

TEMPI , 

. 

777777 

TEMP  I  4 1 , 

45 


1537 

777777 

TFMP1+2 

, 

. 

1 5*»« 

777777 

TEMPH3, 

777777 

TFMP2, 

777777 

TEMP2* 1 , 

777777 

TEMP2+2 , 

1544 

777777 

TFMP2+3, 

.-. 

#00207 

SAVE Y, 

000207 

/STARTING  y  COORDINATE 

800066 

SAVE  X, 

000066 

/STARTING  X  COORDINATE 

831003 

PTH1 STD, 

0  A  T  A  *  3  /BOFFFR  FOR  OISPLAYING  HISTOGRAM 

1558 

820325 

PTRACEt 

tracf+3 

/PUFFER  FOR  DISPLAYING  TRACF 

02 1151 

TT8L  , 

THYTBL*3 

/PUFFER  FOR  DISPLAYING  THEORETICAL 

777777 

SAVE  XX , 

777777 

SAVFYY, 

155% 

777777 

DX, 

777777 

CY, 

777777 

CY  +  1, 

777777 

DDY  , 

1560 

777777 

RRR  , 

• 

777777 

NNN  , 

800000 

N, 

0 

/NUMBFR  DF  LIMIT  SETS 

80 1572 

Y, 

YXYXL 

156% 

801573 

YXYXL ♦ 1 

#01623 

K9  15, 

915. 

800000 

*915*1, 

0 

801274 

x  7  0  0  * 

700. 

1570 

#00000 

X  700 ♦  1 , 

0 

177777 

COUNT, 

YXYXL 

REPEAT  20., 

0  /TRACE  LIMIT  PAIRS 

/COORC. 

SUBR  ,  H1STO  BUFFER,  THEORY  BUFFER,  ANO  TRACF  BUFFER  SET 

/TO  CCHPITF  I  NCR  FM  F  NTS  IN 

MINOR  COOROIN  ATF  WITH  WHOLE 

/STEP  INCREMENTS  IN  MAJOR 

CCOROINATF  ANO  FINAL  STEP 

/INCREMENTS  FOR  BOTH  TO  COMPtE TF  THE  VECTOR 

/»JSP  COORO*  WITH  X  OlEFFRENCE  IN  *MIN4  ANO  Y  OIFFFRFNCF 

/IN  * M A  J 

* 

1616 

261704 

COORD, 

DAP  RTN 

/PROGRAM  countfr 

34  1741 

OZM  SW 

1628 

20 1 733 

LAC  MIN 

840200 

SPA 

761000 

C  M  A 

241736 

DAC  R 

/ABSOLUTE  VALUF  DF  OIFFFRFNCF 

REPLAY  1,2 

162* 

20  l  732 

LAC  MAJ 

840200 

SPA 

T61000 

CMA 

1630 

421736 

SUB  R 

640200 

SPA 

/TEST  WHICH  IS  LARGER 

601705 

JMP  SWITCH 

/X  IS 

1631 

201 732 

COOROl , 

LAC  MAJ 

16  3% 

647177 

MUL  I  1 

/SET  UP  FOR  DIVISION 

46 


163i 

167322 

01  V 

1  177 

/WHOLE  step 

?60eee 

NCP 

321736 

0  ID 

R 

/INCREMENT  IN  PARTIAL  STEP  FOR 

MAJ 

16*8 

*50iee 

SZA 

I 

/TEST  IE  NEED  WHOLE  STEP 

401713 

JMP 

STEP5 

/NO-SET  UP  EDR  ONLY  PARTIAL 

4H020e 

SPA 

T6  1000 

CPA 

1  6** 

2k  173* 

0  AC 

NUM 

/number  of  WHOLE  STEPS 

741000 

CPA 

2*1735 

OAC 

NN 

/FDR  INDEXING 

RbPLAV  1*2 

1  658 

201733 

LAC  PIN 

6*1736 

MUL 

R 

141732 

D I  V 

MAJ 

760000 

NOP 

165* 

2*17*0 

OAC 

RP 

/INCREMENT  IN  PARTIAL  STEP  FOP 

MIN 

741000 

CM  A 

*01733 

A  CD 

MIN 

5*7177 

MOL 

(  1 

1  660 

54173* 

DIV 

NUM 

760000 

NCP 

4*0*ee 

SMA 

401666 

JMP 

.  ♦  3 

166* 

761000 

CM  A 

/TC  GET  MAGN1TU0E 

0*7323 

ICR 

(280 

/PUT  IN  MINUS  SIGN 

2*1737 

DAC 

W 

2017*0 

LAC 

RP 

1678 

4*0*0e 

SMA 

40  16  7* 

JMP 

•  ♦  3 

74 100e 

CMA 

/ID  GET  MAGNI TUDE 

i*  7  323 

I  OR 

(  200 

/PUT  IN  MINIS  SIGN 

1 6  7*1 

2*17*0 

DAC 

RP 

201736 

LAC 

R 

4*e*00 

SMA 

401703 

JMP 

.♦* 

1708 

761000 

CMA 

/TO  GE1  MAGNITUDE 

8*7323 

I  CR 

1208 

/PUT  IN  MINUS  SIGN 

2* 1 736 

DAC 

R 

REPLAY  1,2 

/KELP  DISPLAY  GOING 

170* 

4017e* 

RTN,  JMP 

.. 

/eACK  TO  prcgram 

uei 

201732 

SWITCH*  LAC 

MAJ 

/SO  HAVE  LARGER  0IEF6«ENCF 

221733 

LID 

MIN 

/IN  VARIABLE  CALLED  MAJ 

2*1733 

DAC 

MIN 

/AND  SMALLER  INCREMENT  N 

1  718 

821732 

DIO 

MAJ 

/variable  called  min 

4*17*1 

1DX 

$w 

/SC  KNOW  THAT  HAVE  SWITCHED 

401633 

JMP 

COORD  1 

1713 

8*1735 

STEP5,  DZM 

NN 

/NO  WHOLE  STEPS 

171* 

5*173* 

DZM 

NUM 

201  732 

LAC 

MAJ 

4*0*ee 

SMA 

47 


1711 

•#1722 

jpp  .*3 

172# 

141000 

CPA 

/TO  GFT  MAGNITUOE 

1*7  323 

I  OR  K72?i 

/PINUS  SIGN 

2% 1 736 

OAC  R 

2# 1733 

LAC  MIN 

173# 

4*0*00 

SPA 

•#1730 

JPP  -+3 

741000 

CPA 

/TO  GET  PAGNITUOE 

##7323 

I  OR  (200 

/PINUS  SIGN 

173# 

2*17*0 

OAC  RP 

40170# 

JPP  RTN 

/PACK  TO  PROGRAM 

1732 

177777 

P  A  J  . 

/LARGER  INCREMENT 

177777 

PIN, 

/SMALLER  INCREMENT 

17  3# 

177777 

NUP  , 

/NUMBER  OE  WHOLE  STEPS 

177777 

NN, 

/-NUMBER  OF  WHOLE  STEPS,  FOR  INOEXING 

777777 

R* 

/INCREMENT  IN  MAJ.  OIR,  IN  PARTIAL  STE 

177777 

w, 

/INCREMENT  IN  PIN.  OIR.  IN  WHOLE  STEP 

37*0 

177777 

RP . 

/INCREMENT  IN  PIN.  OIP.  IN  PARTIAL  STEI 

000000 

SW, 

0 

/0  IF  Y*P A J ,  X *P I N  OR  1  IF  Y*PIN,  X»HA 

/IOACS 

PUEEER 

EOR  HISTOGRAM  INTO  PDCULE  3 

17*2 

43732* 

COMPUTE 

f 

JSP  I  ITA8TFST  /F  INO  RANGE  OF  RUFI 

2# 153* 

LAC 

TEPP 

17** 

445001 

SAL 

IS 

*07177 

A  00 

(  1 

•761000 

CPA 

2*1533 

OAC 

COUNTER 

/NO.  OF  STEPS 

575# 

161000 

CPA 

6*7205 

PUL 

(  1000. 

/FOR  ACCURACY 

667325 

OIV 

(915. 

/NO.  HORIZONTAL  INCREMENTS  ON  SLOPE 

760000 

NOP 

175* 

2*155* 

OAC 

OX 

/FACTOR  FCR  X 

207326 

LAC 

(  0  AT  A ♦ 3 

2*15*7 

OAC 

PTHISTO 

REPLAY  1,2 

/KEEP  DISPLAY  GOING 

1760 

217327 

LAC 

I  (PAXlPUP 

/LOW  OROER  BITS  OF  YIPAX) 

1*7205 

PUL 

(  1000. 

•72001 

RIR 

IS 

/SET  SIGN  BIT 

121535 

0  10 

TEMPI 

176* 

2*1536 

OAC 

TEMP  1  ♦  1 

217330 

LAC 

I  (MAXIMUM* 

1  /HIGH  ORDER  BITS  OF  Y(M\X) 

1*7205 

PUL 

(  1000. 

447777 

SCL 

9S 

177# 

447377 

SCL 

6  S 

*•1636 

ACO 

TEMP  1  ♦  1 

2*1536 

OAC 

TEMP  !♦  1 

20726* 

LAC 

( TEMPI 

177* 

227331 

L  I  0 

( K  700 

/POSSIBLE  INCREMENTS  IN  Y 

OPR 

OPOIV 

T771 

2* 1555 

OAC 

OY 

/C0U8LE  PRESION 

48 


2000 

121556 

DID  DY+I 

/FACTOR  EDR  Y 

REPLAY  1,2 

/KEEP  DISPLAY  GOING 

2002 

207205 

LAC  <  1000. 

147177 

MUL  I  1 

2004 

561554 

D  I  V  DX 

760000 

NDP 

847177 

MUL  1  I 

/SINCE  INCREMENT  IN 

867322 

DIV  (177 

/X  WILL  ALWAYS  BE  THE  SAME 

20  18 

T60000 

NDP 

12 I 560 

DID  RRR 

/CONSTANT  DIEFERENCE  IN  X  DIRECTION 

440  100 

SZA 

761000 

CMA 

2014 

241561 

DAC  NNN 

141553 

DZM  SAVE YY 

REPLAY  1,2 


20  17 

20 1 534 

LAC 

TEMP 

2020 

465001 

SAL 

1  S 

/SINCE  DOUBLE  PRECISION 

761000 

CMA 

407271 

ADD 

1  ZLDC 

227332 

LID 

( K  1000 

DPR 

DML'L 

2026 

001535 

TEMP  1 

20  1536 

LAC 

TEMP1+1 

/TEST  IE  NEED  TD  DD  DOUBLE  PRECISION 

2e30 

440100 

SZA 

/CIVIDE  -  IE  NOT,  DISPLAY  WILL  BE 

402037 

JMP 

.  *6 

/COMPLETED  MUCH  FASTER 

201535 

LAC 

TEMPI 

547177 

MUL 

I  1 

2034 

561555 

DIV 

DY 

402037 

JMP 

.♦2 

402043 

JMP 

.♦5 

207264 

LAC 

(TEMPI 

2040 

227333 

LID 

(OY 

/ADCRESS  DE  HIGH  MANTISSA 

DPR 

DPDIV 

2043 

421553 

SUB 

SAVEYY 

/INTERESTED  IN  OIEEERENCE 

2044 

241535 

DAC 

TEMPI 

/Y  DIFFERENCE 

401553 

ADD 

SAVEYY 

241553 

CAC 

SAVEYY 

/SAVE  EDR  NEXT  DIEEERENCE 

20  1535 

LAC 

TEMP  1 

2050 

547177 

MUL 

I  1 

/SET  UP  EDR  DIVISION 

867322 

DIV 

I  177 

/HDW  MANY  WHOLE  STEPS 

760000 

NDP 

321736 

DID 

R 

2  0  54 

450  100 

SZA 

I 

402075 

JMP 

STEP 

640400 

SMA 

761000 

CMA 

2060 

241735 

DAC 

NN 

/FCR  INDEXING 

700177 

LAW 

177 

221535 

LID 

TEMPI 

642000 

SPI 

49 


206* 

847323 

1  OR 

(200 

/MINUS  SIGN 

047334 

I  OR 

(400 

/INTENSITY 

764000 

CLI 

477777 

SCR 

vs 

2070 

477001 

SCR 

IS 

831547 

010 

1  PTHISTO 

44 1 547 

icx 

P  THI S  TO 

4*1735 

ISP 

NN 

/NO.  OF  WHOLE  STEPS 

2074 

602071 

JMP 

.  -  3 

2  0  75 

201736 

STEP,  L/C 

R 

/PUT  IN  PARTIAL  ST  FP 

*50100 

S/A 

I 

602  1  10 

JMp 

.  ♦?. 

2  100 

640400 

SKA 

602104 

JMP 

.*  3 

741000 

CMA 

047323 

I  OR 

1200 

/MINUS  SIGN 

2  1  04 

047334 

I  OR 

<  4  00 

/ INTFNSITY 

6*5377 

SAL 

8  S 

251547 

DAC 

I  PTHISTO 

441547 

ICX 

PTHISTO 

REPLAY  1,2 

/KEEP  01  SPLAY  GOING 

2  111 

20  1561 

LAC 

NNN 

/NUMBER  OF  WHOLE  STEPS 

650  100 

SZA 

I 

402122 

JMP 

STEP1 

21  I* 

247125 

OAC 

•YARN 

227335 

L  10 

(200177 

/WHOLE  STf  PS  1 N  X 

131547 

010 

I  PTHISTO 

*41547 

1  cx 

PTHISTO 

2  120 

*67125 

ISP 

YARN 

/NUMBFR  OF  WHOLE  STEPS 

602  1  16 

JMP 

.-3 

2122 

201560 

STEP  1  ,  LAC 

R  R  8 

/PARTIAL  STEP  OVER  IN 

*50100 

S/A 

I 

212* 

602130 

JMP 

.  ♦  4 

047170 

I  OR 

(  20000'* 

/  INTENSITY  Bl T 

251547 

OAC 

I  PTHISTO 

**1547 

I  DX 

PTHISTO 

2130 

710001 

LAW 

I  1 

*01534 

ACD 

TEMP 

241534 

OAC 

TEMP 

*61 533 

I  SP 

COUNTER 

/TEST  If  HAVE  CONE  ALL 

2134 

602016 

JMP 

L00P2 

/NO-CONT IKUF 

2135 

201553 

LAC 

SAVEYY 

640200 

SPA 

76 1000 

C  M  A 

2  140 

047336 

I  OK 

(  1600 

461377 

R  AL 

6S 

251547 

OAC 

I  PTHISTO 

*41547 

ICX 

PTHISTO 

2144 

703000 

LAW 

3000 

/STOP  CODE 

50 


OAC  I  PTHISTO 
JSP  I  ITAPTEST 
REPLAY  1,2 


2U» 


215! 

2  151 
21M 

2161 

216! 

2162 

1161 

2170 

2171 

2200 

2201 

2210 

2211 

2220 


*51517 

437321 


/KEEP  (DISPLAY  GOING 


/BUFFER  FOR  THEORETICAL  CURVE-  |N  MQOULE  2 


THOR,  REPLAY  1,2 


207337 

LAC 

l THYT  PL ♦ 3 

211551 

OAC 

TTBL 

200  10*i 

LAC 

THEORY 

450100 

SZA 

I 

/TEST  THEOR.  BUTTON  STATUS 

402352 

JMP 

CTRACE 

/NOT  PUSHEO  00 WN 

200101 

LAC 

FL  IPFLOP 

/CN-CHECK  IF  HAVE  CALCU1ATE0  YET 

410100 

SZA 

/TEST  IF  HAVE  CALCULATED  VALUES 

402  352 

JMP 

CTRACE 

/YES,  GO  ON  TO  TRACE  BUFFER 

110101 

CALCU,  I  OX 

FL IPFLOP 

/SO  WON’T  CALCULATE  TWICE 

11 1553 

OZM 

SAVE  YY 

/INITAIL  Y  COOROINATE 

437321 

JSP 

I  I  TAB  TE  ST 

REPLAY  1,2 

/KEEP  OISPLAY  GOING 

200117 

LAC 

MU 

/AVERAGE 

OPR 

EXP 

/TO  GET  GRESTEST  POSSlRlE  Y  VALUE 

117205 

MUL 

(  1000. 

/SET  UP  FOR  0 1 V I S I  ON 

147312 

OIV 

I  700. 

/POSSIBLE  INCREMENTS  in  y  direction 

260000 

NOP 

211555 

OAC 

OY 

/FACTOR  FOR  Y  SCALE 

200121 

LAC 

GRANULE 

127313 

SUB 

(  6000 

/CREATE  DEGRANULATOR 

212202 

OAC 

INS 

221531 

L  1 0 

TEMP 

442001 

RIL 

IS 

140200 

CLA 

777777 

INS, 

/CEGRANUL ATE 

467001 

SCL 

IS 

211536 

OAC 

TEMPI  4 1 

472001 

RIR 

IS 

121535 

OIO 

TEMPI 

201535 

LAC 

TEMPI 

451600 

CLO 

107227 

ADO 

12 

027257 

ANO 

1 377777 

211535 

OAC 

TEMPI 

411000 

szo 

1115  34 

I  OX 

TEMP  1  ♦  1 

201535 

LAC 

TEMPI 

617205 

MUL 

1  1000. 

472001 

RIR 

IS 

§21535 

OIO 

TEMPI 

211537 

OAC 

TFMP1+2 

201536 

LAC 

TEMPI + I 
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5*7205 

MUL  ( 1000. 

*67777 

SCL  9$ 

467377 

SCL  BS 

401537 

ADD  TEMP  1*2 

22  3§ 

24 1536 

DAC  TFMP1+1 

207264 

LAC  (TEMPI 

227344 

LIO  IK915 

DPR  ppnv 

2235 

24  1535 

0 AC  TEMPI 

/INCREMENT  EACH  T 1 MF 

764000 

CLI 

201534 

l A  C  TEMP 

224i 

102202 

XCT  INS 

/LARGEST  VALUE 

547345 

MUL  1-1030. 

*72001 

RIR  IS 

!2 154  1 

OIO  TEMP2 

/MOST  NEG.  NUMBER  »  1000. 

22  4  X 

201541 

LAC  TEMP? 

127346 

SUB  ( 500. 

241541 

DAC  TEMP2 

700001 

LAW  1 

2259 

241733 

DAC  MIN 

/X  ALWAYS  SAME 

84 1571 

DZ  M  COUNT 

341741 

D/M  Sw 

NEXTPT,  RFPLAY  1,2 

/ K FE P  01 S  PLAY  GOING 

2254 
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LAW  1 

241733 

CAC  M  |  N 

20  1535 

LAC  TEMPI 

54  157  1 

MUL  COUNT 

2260 

B67177 

Cl  V  M 

/TO  GET  INTO  AC  CDMPL I MENT  EO 

760000 

NCP 

*01541 

ACO  TEMP2 

DPR  FXP 

/NOW  HAVE  X  VALUE 

2265 

647205 

MUL  (1000. 

6*1555 

0 1  V  DY 

/TO  GET  COORO. 

760000 

NOP 

2270 

*21553 

SLB  SAVEYY 

/TO  GET  OIFFIRENCF 

24 1 732 

DAC  MAJ 

40  1553 

ACO  SAVEYY 

241553 

DAC  SAVEYY 

/TO  GET  NEXT  DIFFERENCE 

227* 

*21616 

JSP  COCRD 

20  1  74  1 

LAC  SW 

*40100 

SZ  A 

/TEST  WHICH  IS  LARGER 

*02345 

J  M  P  XMAX 

/X  IS 

2300 

201735 

LAC  NN 

/Y  I S-CONT 1  MJF 

*50100 

SZA  1 

/TEST  If  ANY  WHOLE  STIPS 

*02320 

JMP  STEP2 

/NO-GO  DO  PARTIAL 

700177 

LAW  177 

/YES-PUT  THEM  IN 
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2304 

221732 

442000 

047323 

047334 

2  310 

•65377 

047161 

*77777 

477777 

2314 

131551 

441551 

**1735 

402314 

STFP2 

2321 

201736 

047334 

665377 

SKEP2 

2324 

047177 

25  155  I 

44  155  1 

441571 

2330 

*27325 

402253 

2332 

710001 

401551 

FNCL'Pi 

2334 

24  155  1 

211551 

047171 

251551 

2  340 

441551 

703000 

251551 

2344 

402352 

XMAX  f 

2346 

20 174e 

402322 

23S0 

001750 

000000 

K  1000 i 

l  10 

MAJ 

SPI 

1  CK 

1200 

/KINDS  SIGN 

ICR 

(400 

/INTENSITY  PIT 

SAL 

8S 

1  OR 

10 

/X  INCREMENT  FOR  Y  WHOLE  STEP4 

scr 

PS 

SCR 

PS 

0  10 

I  TTftL 

IOX 

TTRL 

I  SP 

NN 

/TEST  IF  PAVE  MORE  WHOLE  SUPS 

JWP 

.-3 

/YES  DO  AGAIN 

REPLAY  1,1 

/NCW  00  PARTIAL  STEP  CV1-R 

LAC 

R 

I  OR 

1400 

/INTENSITY  PIT 

SAL 

8  S 

I  CR 

I  1 

DAC 

I  TT  PL 

ICX 

TTflL 

tux 

COUNT 

SAS 

19  15. 

/TEST  IF  HAVE  FINISHED 

jyp 

NEXTPT 

/NO* DO  NEXT  POINT 

LAW 

I  1 

/YES  -  FINISH  U'P 

ADO 

TTf»l 

DAC 

rn»L 

L  AC 

I  TTRL 

/PICK  UP  l AST  WORD  AND  PUT  IN 

I  CR 

1 400PP^ 

/ESCAPE  RIT 

CAC 

I  T  T  P  L 

ICX 

TTBL 

L  A  W 

3C0P 

/STOP  CODE 

U  AC 

I  TTF  L 

REPLAY  1,2 

/KEEP 

OISPLAY 

GOING 

JKH  CTKACE 

/NEXT 

euFF  ER 

AREA 

REPLAY  1.2  /KF€P  DISPLAY  GOING 


l  AC  KP 
JWP  SKFP? 


l«0«. 
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/ROUTINE  TO  SE1  UP  SUFFER  FCR  TRACE  DISPLAY  IN  ►'OCULF  2 
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2352 

21 1530 

CTRACE , 

LAC  1  65  /NO.  OF  PTS.  IN  1  MACE 

761000 

CPA 

2  35% 

261533 

OAC 

C  OllN  T  F  R 

/FOR  I  NOE  XING 

761000 

CPA 

667205 

PUL 

1 1000. 

/FOR  ACCURACY 

667367 

01  V 

105H. 

/NO.  OF  INCREMENTS  IN  AREA  OF  SCOPF 

2  36  i 

760000 

NOP 

261557 

DAC 

OC  Y 

/FACTOR  FOR  Y 

207350 

LAC 

(  T  RA  C  E  ♦  3 

261550 

DAC 

P  TRAC  E 

236* 

561  76  1 

0/P 

SW 

REPLAY  1,2 

/KEEP  DISPLAY  GOING 

2366 

70000 1 

LAw 

1 

667205 

MUL 

i i 0er. 

/Y  INCREMENT  CONSTANT 

237* 

661557 

oi  v 

OOY 

/FACTOR  FOR  BOTH  SCALFS  61LL  if 

760000 

NOP 

/ 1  Hf:  SAME  -  SET  IT  USING  Y 

267126 

OAC 

BORY 

761000 

CPA 

/SINCE  6 1 L L  ALWAYS  BE  NEGATIVE 

23  7*1 

26  1732 

OAC 

PAJ 

/CHANGE  IN'  Y  f  ACH  1  I  ME 

161552 

OZM 

SAVE  XX 

PEAT,  REPLAY  1,2 

/KEEP  01 S  PL AY  GOING 

237? 

201761 

LAC 

Sw 

2600 

650  100 

SZA 

1 

602606 

JPP 

.  *5 

221733 

L  1  0 

PIN 

121732 

010 

PAJ 

26  0*1 

211532 

LAC 

1  67 

300126 

XCT 

GRANULE 

667351 

PUL 

(2500. 

661557 

01  V 

ODY 

2610 

760000 

NCP 

621552 

SUB 

S  A  VE  X  X 

/10  GET  DIFFERENCE 

261733 

OAC 

Ml  N 

601552 

A  CO 

SAVEXX 

26  16 

261552 

OAC 

SAVE  XX 

/SAVE  TO  GET  DIFFERENCE  AGAIN 

2611 

621616 

JSP 

COCRC 

201761 

LAC 

Sw 

/TEST  WHICH  DIFFERENCE  IS  LARGER 

660100 

SZA 

2620 

602651 

JPP 

XL  ARGFR 

/X  IS 

201735 

LAC 

NN 

650100 

SZA 

1 

602636 

JPP 

STEP  3 

2626 

207352 

LAC 

( 377620 

/VECTOR  POCE  60R0 

061737 

I  OR 

6 

677777 

SCR 

9  S 

677777 

SCR 

9  S 

2  630 

131550 

010 

1  PTRACE 

661550 

1 C  X 

PT  RAC  E 

661735 

I  SP 

NN 
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243J 


402430 


2435  201736 

847334 
445377 
2448  841740 

251550 
441550 
1*7250 
2444  402450 

441532 
461533 
402376 
2458  402504 


2452  201735 

450100 
2454  402472 

201737 
147334 
445377 
2460  847322 

221732 
442000 
147323 
2464  477777 

477777 
B  3 1 550 
441550 
2478  441735 

602466 


STEP3, 


XLARGER , 


JWP 

.-3 

REPLAY  1,2 

LAC 

R 

I  OR 

(400 

SAL 

8  S 

I  OR 

RP 

DAC 

I  PTRACF 

I  OX 

PTRACF 

SAD 

( THYTBL 

JWP 

.♦4 

I  D  X 

W  7 

ISP 

COUNT FR 

JWP 

PEAT 

JWP 

F  INUP 

LAC 

NN 

SZA 

I 

JWP 

STEP4 

LAC 

W 

I  OR 

<  400 

SAL 

8S 

I  OR 

(  177 

LIO 

WAJ 

SPI 

IDR 

(200 

SCR 

9S 

SCR 

9S 

OIO 

I  PTRACF 

IDX 

PTRACE 

ISP 

NN 

JWP 

.-3 

/KEEP  DISPLAY  GOING 


/TD  NEXT  X  VALUE 
/TEST  IF  HAVE  FINISHED 
/ND-CONTINUE 
/YES-GO  FINISH  UP 

REPLAY  1,2  /KEEP  DISPLAY  GOING 


/WINUS  SIGN 


/ND  OF  WHOLE  STEPS 


STEP4,  REPLAY  1,2  /KEEP  OISPLAY  GOING 


2473 

20  1  740 

LAC 

RP 

2  4  74 

847334 

IOR 

<400 

665377 

SAL 

8S 

84  1  736 

I  DR 

R 

251550 

DAC 

I  PTRACE 

2500 

441550 

IDX 

PTRACE 

44 1532 

IPX 

W7 

/TO  NEXT  X  VALUE 

461533 

I  SP 

COUNTFR 

/TEST  IF  HAVE  FINISHED 

402376 

JWP 

PEAT 

/ND-CONTINUE 

2504  710001 

401550 
24 155e 
211550 
2518  047171 

251 550 


FINUP, 


LAW  I  1 

ADO  PTRACF 
OAC  PTRACF 

LAC  I  PT RACE  /PICK  UP  LAST  WORD  AND  PJT  IN 

IDR  ( 400000  /ESCAPE  BIT 

DAC  I  P TR  ACE 
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25  12 

141550 

ICX  P  T  RAC  F 

703ee«> 

LAW  3200 

/STOP 

CODE 

2514 

251550 

DAC  I  PTRACE 

207353 

LAC  (30006 

241532 

OAC  4  7 

RFPLAY  1,2 

/  XFF  P 

0 1  S  PL  AY 

go  i  nr. 

2520 

600000 

RETURN,  JMP 

/PACK 

TO  MAIN 

PGM  . 

/PA  SFL  1  Nfc  FUNCTIONS 


2521 

262525 

RAOT  AP, 

DAP  .*4 

702526 

LAV*  .+4 

227354 

L  I  0  I  34. 

2524 

170451 

JCA  TYPE 

602525 

JMP  . 

TtXT  / 

2526 

776261 

PA 

640071 

C  I 

2530 

454724 

NPU 

230023 

T 

T 

414765 

APE 

2533 

776  346 

CO 

2534 

456471 

NCI 

237146 

TIO 

4  5007  T 

N 

I 

674546 

GNO 

2540 

516564 

RFC 

2541 

737700 

CEFINE  NAMECARET  * 

LAC  N 
MOL  (  l 
01V  (I 
NOP 

ADO  (NAMF-6 

o a c  xcc 

LAC  I  XCO 
ACT  <20 

OAP  I  <  N  AMCR  T ♦  1 
ICX  XCC 
LAC  I  XCO 

acc  (30 

OAP  I  IN AMCR  T  *2 
REPLAY  I.^.NAMCRT 

TERMINATE 

2542  262731  1NIT,  DAP  INITX 

STZ  F  L  I  PFLOP  ,Rfcl)EF  N,  T 1  NF  »  THEORY*?  OF  INO  ,SX  ,  SX  1 

ST/  P»CCE  0  ,  CHNSb  L  *  T  I  MG  AT  »  ST  YL  I  ,SXS  3 »  SX  S  ?,r>XS,SX^  1 

ST/  NCP,ML,mu  1, SIGMA, N, STATUS, PRES, TOTAL, TOTAL* 1 

STZ  F  'MCNTR , TEMP,  1  IINFOl.l  ( I NFO  I  ♦ 1 » I  (INF)2,I  (INF02*1, 

SET  T  I  MG A  T  ,  1  /INITIAL  STATUS  IS  FRAME  MY  FRA*F 

IPP  h  ,  , T ,  1  ,2,3,4,5,6,74 


1  I Nf  CM 
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B»  »  DZH  I 

(NAME ♦  3*B»  7 

DZH  I 

(NAME+4*8»7 

ENDIRP 

26  §6 

1*7362 

0t  DZH  I 

(NAME ♦3*0»7 

157363 

DZH  I 

(NAHF*4*0*  7 

Ml* 

15736b 

1  t 

DZH 

I  1  NAME*  3* 1*7 

157365 

DZH  I 

(NAHE+4+ 1*7 

157366 

2, 

DZH 

I  ( N AMF ♦3  +  2»  7 

157367 

DZH  I 

(NAHE*4*?»  7 

2b  1  * 

•*>?  3  7 1 

3. 

DZH 

I  ( NAME*  3*  3*7 

•57371 

DZH  ) 

<NAHE+4*3»7 

157372 

H, 

DZH 

I  (NAME  *3+4 • 7 

157373 

DZH  I 

(NAHE+4*4»7 

262* 

15737b 

5, 

DZH 

I  1 NAHE*  3*  5»  7 

•57375 

OZH  I 

INAHE+44 W 

157376 

6  y 

DZH 

I  ( NAHE  +3*6»  7 

•57377 

OZH  I 

(NAHF*4*6*7 

26» 

15'7400 

7 

DZH 

I  I NAHE  +  3*  7*7 

«57*»0  1 

DZH  I 

( NAHE*  4+  7»  7 

700100 

LAW 

100 

257216 

DAC  I 

ICH ANNE  L  5+6 
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26  38 

700200 

257220 

700300 

257222 

2634 

700400 

257402 

207403 

257210 

2648 

207404 

257405 

207406 

257407 

2644 

207171 

257326 

703000 

257410 

2658 

S4  7 1 2* 

2074  1  1 

247127 

157127 

2654 

447127 

S27327 

402653 

760200 

008000 

R«0 

REPEAT  8 

2720 

760007 

22  7452 

720025 

2  731 

*02731 

INI TX  t 

834130 

820066 

INI TXL , 

2734 

261761 

800013 

80  300.0 

2737 

*37453 

BG7  1  , 

2748 

200124 

82  74  54 

242746 

217455 

2744 

427271 

475001 

177771 

247130 

958C  t 

2758 

21 7456 

427271 

*75001 

102746 

2754 

427130 

440200 

7*1000 

LAW  200 

OAC  I  1CHANNELS+7 
LAW  300 

OAC  I  (CHANNELS*^ 

LAW  4t40 

OAC  I  ( CHANNEL  S+9 . 

LAC  (34117 
OAC  <  10 A  T  A 

LAC  I  2202  07 
OAC  I  [ 0 A  T  a ♦  1 
LAC  I  100  066 
OAC  1  (0ATA42 

LAC  (400000 
OAC  1  (OATA+3 
LAW  3000 
DAC  1  IOATA+4 
07*  »FHCNTR 
LAC  (TABLE 
OAC  *  K  T A  BL  E 
07*  I  KTABLE 
ICX  KTABLE 
SAS  I  M  A  X  (  *U* 

JPP  .-3 
CLA 

♦  OAP  I  (LIH1TS«1«B 

Cl F  7 

L 10  (  I  N I T  X  L 
OLA 

REPLAY 
JPP  . 

34  1  30 
20066 

261761  /A  01SPLAY  (OARK)  TO  SET 

1  3 

3000 


JSP  I  (SUP 
LAC  GRANULE 
ANO  (-10000. 

OAC  9580 

LAC  I  ( T  T  T ♦ 1 0000 
SUR  I 7L0C 
SAR  IS 

DAC  957*0 

LAC  1  (TT-H0000 

SUB  ( ZLOC 

SAR  IS 

XCT  9580 

SUB  9570 

SPA 

CPA 


OAP  I  ( L  INI TS*2*B 


STOP  FLAG 


DAP 
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2757 

243550 

2768 

207457 

227332 

2768 

001535 

207264 

227277 

2771 

001535 

20 1535 

243551 

27  78 

200122 

665001 

027460 

047461 

3eea 

277462 

200122 

073777 

061001 

3208 

027460 

047461 

277463 

J 0  IS 

847131 

405463 

30  17 

207465 

EG 7 2 » 

9028 

240122 

437453 

3028 

217466 

44500  1 

76 1 000 

807271 

30  38 

287132 

217  132 

040  1  00 

403036 

TAOR  , 

3038 

847132 

403031 

217466 

465001 

3040 

80  727  1 

247133 

217133 

440100 

T  1ACR 

3048 

403051 

710001 

807133 

247133 

3050 

403042 

207132 

827271 

o ac  rce  /aes.  value  of  datax-mu 

LAC  (CUMSL**  10000 
LIO  U100? 

OPR  1>HUL 
TEMP  I 

LAC  (TEMPI 
LIO  I  TOTAL 
0 PR  DPOIVU 
TEMP  I 
LAC  TEMPI 
DAC  7C<? 

LAC  XYNOW 
SAL  IS 
AND  (  1777 

icm  12000 

DAP  1  IDATAX+1 
LAC  XYN04 
RCR  9S 
RAL  IS 
ANO  ( 1 777 
ICR  <  2ev"£? 

OAP  I  (OATAX+2 
REPLAY  1.2.DATAX 
1 C X  •  ( N  TF  PRO 
J **V>  BGI00 


lac  m?e*si2.*50 

DAC  XYNDW 
JSP  I  (SUM 
NEXTCRT  CRTDDC 
LAC  I  (TEMP 
SAL  IS 
C  M  A 

ADD  ( 2 LDC 
DAC  T  * OMM Y 
LAC  1  TOMMY 
S  7  A 

JMP  .♦? 

(DX  TOMMY 
JMP  T  ADR 
LAC  I  (TEMP 
SAL  IS 
ADD  ( l LDC 
DAC  T»OMMY 
LAC  I  TOHMK 
S  2  A 

JMP  .*5 

LAW  I  1 
ADD  TDMMK 
DAC  TCMMK 
JMP  TIADK 
LAC  TOMMY 
SUB  1ZLOC 
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*0  53 

*75001 

SAR 

IS 

105* 

*63777 

RCL 

9S 

•63777 

RCL 

9  S 

200  12* 

LAC 

GRANULE 

•27*54 

AND 

(-10000 

1060 

1*3063 

OAC 

7  356  Y 

*63777 

RCL 

9  S 

*63777 

RCL 

9  S 

177777 

7358Y, 

306* 

2*3547 

OAC 

7C  7 

/CEGRANULATION 


PROBSIG  SIG1 ,  S  I G  2 »  S  I  G  3 
DZM  SUM  I 
DZM  SUM  W 1 
LAC  SIGMA 
SAL  SIG1 
MUL  I  I 
DIV  I  1000. 

NOP 

XCT  GRANULE 
SAL  IS 
ADD  (ZLOC+2 
OAC  TEMPI 
SUB  IZLOC+2 
CMA 

ADD  ( ZLDC 
DAC  C»SUM 
L 10  C  SUM 
LAW  SUM  1 
DPR  DACD 
SUMI 
LAW  2 
A  CD  C  SUM 
DAC  CSUM 
SUB  TEMPI 
SPA 

JMP  .-10. 

LAC  ( SUM  1 
LIO  (K1000 
DPR  CMUL 
TEMPI 

LAC  ITEMP1 
LIO  (TOTAL 
DPR  OPDIVM 
TEMPI 
LAC  TEMPI 
DAC  SIG2 


/ S  I G  3  *  SIGMA 


/SINCE  DOUBLE  PRECISION 


/AOCRESS  DF  -S  IG3«*SIGMA  TALLY 
/PUT  INTO  ID 


/GO  ON  TO  NEXT  TALLY  REGISTERS 


/PR0BA8I L I TY  Of  GE IT ING 
/BETWEEN  *♦  SIGMA«SIG3 


TERMINATE 


PR  DBS  I G  0, 7C2,  I 
PROBSIG  1S»7C3,2 
PROBSIG  2 S,7C4,3 

EQUALS  PROBSIG, NULL 
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32H7 

21  7*4  56 

LAC 

1  (TT410002 

3258 

227332 

LIO 

{ K  1  00  0 

OPR 

OMUL 

3253 

801535 

TEMPI 

325* 

20726*4 

LAC 

(TEMPI 

227277 

LIO 

( total 

DPR 

DPCIV4 

3260 

001535 

TEMPI 

201535 

LAC 

TEMPI 

2*354 1 

0  AC 

7C1 

/PROB.  OF  MU 

207133 

L  AC 

TDMMK 

326* 

127271 

SUB 

(  7L0C 

*75001 

SAR 

1  s 

103063 

XCT 

7  35BY 

243546 

DAC 

7C6 

3270 

200124 

BINT,  LAC 

GRANULE 

027473 

ANO 

(  777 

107177 

ADD 

(  1 

243545 

OAC 

7C5 

/granularity 

OF  HO  FOR  DOCUMENTATION 


DEFINE  CARRIAGE 

L 10  I  77 
J DA  9PT 

TERMINATE 

OEFINE  MEMBER  A,B,C.O 

LAC  (A 

LIO  (R  /CHARACTER  COUNT 

JCA  TYPE 

CLI 

JOA  9PT 
CLI 


JCA  9PT 

LAC  C 

/GENERATE 

TWO 

SPACES 

REPEAT  1 I E 

V7 

D  +  0, 

JOA 

OPT 

REPEAT  0 I F 

V7 

D+0  , 

JDA 

PRIO 

CARRIAGE 


TERMINATE 


3276 

703301 

CARR  I  AGE 
LAW  8C4 3 

264563 

DAP  MDVTR- 

3300 

404515 

JMP  RG3 

704213 

0C43,  LAW  BGN4 

264563 

DAP  MDVTR- 

3307 

207475 

CARRI AGE 
CARRIAGE 
LAC  < ec 1 

33  10 

227476 

LIO  (8CC1 

170451 

JDA  TYPE 

764000 

CLI 

170550 

JCA  9PT 
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3314 

764000 

17e55e 

200125 

*47177 

3320 

*67477 

7*0000 

450100 

403335 

3324 

340124 

443777 

463777 

240125 

RC  84 

3330 

200126 

J7e513 

200  125 

17  e5  1  3 

BCH6 

333% 

40334 1 

200126 

440100 

403325 

0C87 

33  40 

403332 

6C85 

3506 

207131 

450  ie0 

3510 

403537 

3537 

347131 

6G72X 

3540 

405463 

3541 

777777 

7C  1 , 

000  12  1 

7C  1  A*S 1 OMA 

3542 

777777 

7C2, 

777777 

7C  3  • 

3544 

777777 

7C4, 

777777 

7C5, 

777777 

7C6, 

777777 

7C  7 » 

3550 

777777 

7C0, 

777777 

7C9 , 

000033 

BCC1-27. 

CLI 

JCA  9PT 
LAC  TOTAL 
MUl  <  1 

oiv  tieepflp. 

NOP 
sza  l 
JMP  ACB7 
ICX  TOTAL*! 

RCL  9S 
RCL  9S 
DAC  TOT Al 
LAC  T  0  T  AL ♦ 1 
JDA  OPT 
LAC  TOTAL 
JCA  DPT 
JMP  8C85 
LAC  TOTALH 
SZ  a 

JMP  8C84 
JMP  8CP6 
CARR  J  AGE 

MEMBER  fiC;,8CC?,MC,  1 

member  ecj'ftccj.rcwi 

MEMBER  ec  3Af8CC3A,7C) A, 1 
MEMBER  8C4  »  8CC4  ,  7C?t  1 
MEMBER  8C  5  *  HCC  5 »  7C  3  *  1 
MEMBER  8C6, 8CC6, 7C4 , 1 
MEMBER  8C 7,8CC7, 7C5 
MEMBER  8CP,PCC8,7C6 
MEMBER  8C9.BCC9, 7C 7 
LAC  INTER'RO 
S  7  A  I 
JMP  BG7?X 

ME  MBER  fcC  1  0  t  8CC 1 0 »  7CB 
MEMBER  8C11.8CC1 1,7C9,1 

DZM  1NTERRC 
JMP  RG  1 0 Cl 
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0000 12 

000031 

000044 

*000*14 

000046 

*09022 

*00017 

000017 

0  000*10 

000060 

009013 

8CC2*  10* 
fiCC3*2S. 

8CC4*38. 

8CC  5*3  8 . 

8CC6=38. 

6CC7*18. 

8CC8  *  1 5 . 

8CC9-15. 

8CC  10*32. 

8CC  11*48. 

8CC3A*1 1. 

SUM  1 «  RF  PEA  T  2»  0 
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55  5  X 

24363* 

DSOS 1 « 

423635 

JSP 

DIMT  I 

820221 

1NFD1 

200121 

LAC 

S  1GPA 

•  56# 

170602 

JDA 

PRID 

423635 

JSP 

DIN1T1 

020236 

1NFD2 

207126 

LAC 

F • PCNTR 

556* 

J  705  1  3 

JCA 

DPT 

20 155* 

LAC 

DX 

*07161 

ADD 

(0 

450100 

SZA 

1 

•  57S 

603633 

JPP 

OSDS  1  X-l 

423635 

JSP 

DINIT  1 

020251 

1NFD3 

20153* 

LAC 

TEMP 

357* 

450  Iffl 

SZA 

I 

403603 

JMP 

•  ♦6 

20012* 

LAC 

GRANULE 

*273*3 

SUB 

16000 

5608 

2*3602 

DAC 

.♦2 

20153* 

LAC 

TEPP 

T77777 

170513 

JDA 

DPT 

560* 

701750 

LAW 

1000. 

8*7177 

PUL 

<  I 

86155* 

DIV 

DX 

760000 

NOP 

1618 

2*7  T35 

DAC 

FLIPF 

20 153* 

LAC 

TEPP 

8*7205 

PUL 

(1000. 

867177 

DIV 

(  1 

561* 

760000 

NDP 

*00117 

ADD 

MU 

*073*6 

ADO 

(  500. 

8*7135 

PUL 

FLIPF 

1628 

167205 

DIV 

( ie00. 

760000 

NDP 

*07521 

ADD 

(66 

277522 

DAP 

1  (CRTHU+2 

16  2* 

277523 

DAP 

1  (CRTMU+6 

REPLAY  I  »  2  »CR  THU 

363» 

423663 

JSP 

DIN1T2 

56  3* 

40363* 

DSD  S 1 X «  JPP 

. 

•639 

263662 

D1N1T1,  DAP 

I  CNT 

287525 

LAC 

(XCT  BG15 

2*-*#66 

DAC 

RGI* 

56*8 

72007* 

LEP 

213662 

LAC 

1  ION  f 

72*07* 

E£P 

2*7135 

DAC 

F  L  1 P  '  F 

16*# 

157135 

DZN 

I  FLIPF 

DAP  DSDS1X  /DISPLAY 

/SET  UP  DECIMAL  PRINT  TO  PACK 


/CREATE  DEGRANULATOR 


/DEGRADATION 


/CELTA  X 


NED 
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364* 

447135 

I  D  X 

fl  ipf 

857135 

DZM 

I  FLIPF 

447135 

I  CX 

FL  IPF 

3650 

357135 

DZM 

I  FLIPF 

T  10002 

LAW 

I  2 

407135 

ACC 

FLIPF 

247135 

DAC 

FL  IPF 

3654 

443662 

ICX 

ICNT 

207526 

LAC 

(JMP  RG14 

240123 

DAC 

ID 

207527 

LAC 

<JMP  7/GF 

3660 

244476 

DAC 

M4Z 

244503 

DAC 

M3Z 

*03662 

1DNT,  JMP 

. 

3663 

263700 

DINIT2, 

CAP  IDC2 

PUNCH 

367* 

207530 

LAC  UMP  PG1 3 

244476 

DAC  MUZ 

244503 

DAC  M3Z 

3700 

*03700 

IDOZ  , 

JMP  . 

3701 

263714 

DS0S2, 

DAP  DSOX 

*23635 

JSP  DIMT1 

820264 

TAPINF 

3704 

217531 

LAC  I  (30PP0 

*27473 

ANO  <777 

170513 

JDA  DPT 

*23635 

JSP  DINIT1 

371# 

020277 

T APINK 

217532 

LAC  I  <30001 

170513 

JDA  DPT 

*23663 

JSP  DINIT2 

37  14 

*00000 

CSCX, 

JMP 

START 
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BASELINE  3 


OCTAL 


1711 

2*372* 

7W1  , 

0  A  P 

•  +  7 

463777 

RCL 

9S 

*63777 

RCL 

9S 

9720 

*71077 

RAR 

6  S 

*2  7533 

ANO 

( 770000 

**3777 

RCL 

9S 

**3777 

RCL 

9S 

£721 

*0372* 

JMP 

1721 

2*373* 

7*2, 

OAP 

.♦7 

*63777 

RCL 

9S 

**3777 

RCL 

9S 

8731 

*•1077 

RAL 

6  S 

•2753* 

ANO 

I  770C 

*63777 

RCL 

9S 

*63777 

RCL 

9S 

9731 

*0  3734 

JMP 

1731 

2637*3 

7W3, 

OAP 

.♦6 

*63777 

RCL 

9S 

**3777 

RCL 

9  S 

1748 

*27*7* 

ANO 

<77 

**3777 

RCL 

9S 

*63777 

RCL 

9S 

*#37*3 

JMP 

XT  AG, 

RE  PL 

AY  1,2,0, TRACE 

I  R  P 

R  »  *  0  ♦  1,2, 3, *,5,6, 71 

B,t 

REPLAY  1 ,2,0,LIMI TS»B* 19. 

ENOIRP 

0, 

REPLAY  1 ,2,0,LIHIT$«0* 19. 

1, 

REPLAY  1,2,0*  LIHITS  +  U  19. 

2, 

REPLAY  1*2,0, LIMITS >2 *19* 

3, 

REPLAY  1,2,0^L1HITS+3»I9. 

*  • 

REPLAY  H2,0*iL1HITS«**  19. 

5, 

REPLAY  1 ,2  ,e,L IHI TS+5* 19. 

6, 

REPLAY  U2,0*LIMI  TS«6«  19. 

7 

REPLAY  1,2* 0*L IHI T$  ■*  7»  19. 

*832 

*05050 

JHP  XTAG1 

*831 

12*07* 

BGN  , 

E  EM 

*031 

920211 

IOT 

2 I I  /SELECT  THE  CONSOLE  BUTTONS  FOR  CONTROL 

REWIND  TAPE  /  I NPU7  TAPE  IS  ON  UNI  T  S 

1848 

**7136 

BGN  1 , 

02M 

O’LYT 

2075*6 

LAC 

( TEXT  L  JNES  +  3 

2*7112 

OAC 

xco 

2275*7 

L  10 

<  202020 

*041 

1971  12 

010 

I  XCO 

•*7112 

ICX 

XCO 

127550 

SAS 

(CHANNELS-2  /INPUT  TITLE  BUFFER  INITIALIZED 

•0*0** 

JHP 

.-3  /TO  IBM  TAPE  BLANKS. 

PUNCH 

TAPREO  ONSTY, TAPE  »2, TFXTL IES+3, 20066, JMP  rtGN 1 

BGN2, 

I  SET 

NUHCHN, 1  /INITIALIZE  NUMBER  OF  CHANNELS 

*077 

2075*6 

LAC 

I TEXTL INE  S*3 

*108 

2*7112 

OAC 

XCO 

6HH, 

1  SET 

5*HH,3 
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4  103 

237112 

L  10 

1  xco 

•  1  04 

140200 

4HH, 

CL  A 

443077 

RCL 

6  S 

76000S 

CLF 

S 

4S0100 

SZA 

1 

•  1  10 

140015 

STF 

s 

107206 

SAD 

120 

740200 

CIA 

440100 

SZA 

4  1  10 

404117 

JMP 

.♦2+1 

440005 

SZF 

S 

700020 

LAW 

20  /ZEROS  ANO  BLANKS  SNAPPED 

473077 

RCR 

6  S 

4  120 

442077 

R1L 

6S 

447137 

1  SP 

5HH 

404104 

JMP 

4HH 

*37112 

DIO 

1  XCD 

4  124 

447112 

1  cx 

XCD 

6275S0 

SAS 

(CHANNEL S-2 

404101 

JMP 

6HH 

BGN3, 

TAPRED  DNSTY, TAPE, 1,30000, 37777, JMP  BGN2 

414) 

21 7S31 

LAC 

1  <30000  /GET  CHANNEL  NUMBER 

4144 

641777 

RAL 

9S  /RIGHT  JUSTIFY 

127232 

ANO 

(3  /MASK  OUT  GARBAGE 

4201 12 

SUB 

NUMCHN  /CDMPARE  W1H  PREVIOUS  VALUE 

407161 

ADD 

<0  /ELEM1NATE  -0 

4  1  S0 

440400 

SMA 

/HAVE  WE  FOUND  ALL  THE  CHANNELS  YETI 

405552 

JMP 

BGNN3  /NO  SO  KEEP  GOING 

207554 

LAC 

(NOP 

244 16S 

OAC 

.♦10. 

BGK, 

TAPSPC  DNSTY, TAPE,  1,-40,  JMP  BGKl 

416V 

404154 

JMP 

BGK 

BGK1, 

TAPREO  DNSTY, TAPE ,2, 30000, 37777, JMP  BGN2 

/THE  ABOVE  RESETS  THE  TAPF 

4204 

422542 

JSP 

1 N ! T  /GO  INITIALIZE  THF  PROGRAM 

REPLAY  0,1  .CHANNELS 

BGN4, 

REPLAY  1,2, CHANNELS 

PUNCH 

REPLAY  1,  1, TEXTLINES 

REPLAY  1,2, CONTINUE 

REPLAY  1 • 2, NF  XTF 1 1E 

4254 

467136 

ISP 

OL’YT 

604213 

JMP 

BGNU 

847136 

OZM 

OLYT 

RESPOND  0, RGN4.BG  1  , BG2, BG 3, PG4 , BG5 , BG6 ,  8G7.BG8.BG9 

BG 1  , 

REPLAY  1,0 

NEXTCRT  CRTNF 

TAPSPC  DNSTY, TAPE, 1,40. *JMP  BGN 1 

0330 

404305 

JMP 

BG  1  /SPACE  TO  NEXT  E.’O.F. 

1401 13 

BG5* 

OZM 

CHNSEL  /RE5CT  CHANNEL  SELECT  REGISTER 

100100 

LAW 

1  0? 

257216 

DAC 

1  (CHANNELS* 6  /RESET  DISPLAY  BUFFER 

4334 

V 0  0200 

LAW 

200  /TO  GIVE  ALL  FOUR  NUMBERS 

257220 

OAC 

1  (CHANNEL  S*  7  /!*.,  ‘CHANNELS  1234» 
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DEFINE  PUTEST  A ,  B 
L  AT 


REPEAT 

1  I  E 

VZ 

A-17., 

RAR 

IS 

REPEAT 

II  F 

vz 

A-  16., 

RAR 

2S 

REPEAT 

1  I  F 

vz 

A-  15.  , 

RAR 

3S 

REPEAT 

1  IE 

vz 

A-1 *. , 

RAR 

*s 

REPEAT 

1 1  F 

vz 

A- 13., 

RAR 

5S 

REPEAT 

IIF 

vz 

A-  1  2 . , 

RAR 

6S 

REPEAT 

1  IF 

vz 

A-  1  1  .  , 

RAR 

7S 

REPEAT 

1  IF 

vz 

A-ie., 

RAR 

ss 

REPEAT 

IIF 

vz 

A-9., 

RAR 

9S 

REPEAT 

1  IF 

vz 

A-B.  , 

RAL 

RS 

REPEAT 

IIF 

vz 

A-7., 

RAL 

7S 

REPEAT 

IIF 

vz 

A  -6  •  , 

RAL 

6S 

RFPE AT 

IIF 

vz 

A-5, 

RAL 

5S 

REPEAT 

IIF 

vz 

A-*  , 

RAL 

us 

REPEAT 

1  IF 

vz 

A-i  , 

RAL 

3S 

REPEA  T 

1  IF 

vz 

A  — 2  , 

RAL 

2  S 

REPEAT 

IIP 

vz 

A-  1  , 

RAL 

IS 

SPA 

/IS 

BUTTON  A  ON 

JPP  H 

ms 

,  SO  EXIT 

ACCORDINGLY 

TERMINATE 


*336 

700300 

LA* 

300 

257222 

0  AC 

I  (CHANNELS 

♦  8. 

U  3*8 

780*00 

LA* 

*00 

257*02 

OAC 

1  (CHANNELS*?. 

40*375 

JNP 

BG  11 

/RE  TURN  AND  DISPLAY 

70000 1 

BG6, 

LA* 

1 

/CHANNEL  I  SELFCTEO 

*3*4 

40*352 

JPP 

.♦6 

700002 

BG7, 

LAW 

2 

/CHANNEL  2  SELECTED 

48*352 

JPP 

.  ♦* 

700003 

BG8, 

LA* 

3 

/CHANNEL  3  SELECTED 

*358 

40*352 

JHP 

.♦2 

70000* 

BG9, 

LAW 

* 

/CHANNEL  *  SLFCTED 

2*0113 

OAC 

CHNSEL 

/SAVE  CHANNEL  ND . 

REPLAY  1,2,,CHNHES 

*361 

207560 

LAC 

(LAW  1 

2**365 

DAC 

.♦3 

/INITIALIZE  CHANNEL  NO.  GENERATOR 

207216 

LAC 

( CHANNEL  S  *6 

/GET  IN  I  T  1  At  GUTPUT  ADDRESS 

*36* 

2*7  135 

OAC 

•FLIPF 

/SAVE  ADDRESS 

777777 

BG 1  0, 

/LAW  TO  CHANNEL  NO. 

*166 

SB0 1  ia 

SAD 

CHNSEL 

/IS  THIS  THE  SELECTED  CHANNEL 

40*371 

JHP 

.♦2 

/YES,  SO  SAVE  IT. 

*370 

857135 

DZM 

1  FLIPF 

/ND,  SO  DESTROY  THIS  NO.  DISPLAY 

1*7135 

1CX 

FLIPF 

/UPDATE  OUTPUT  AOPRESS 

*4*365 

IOX 

BG  1 0 

/UPDATE  CHANNEL  GENERATOR 

627561 

SAS 

(LAW  S 

/APE  WE  DONE 

*37* 

48*365 

JPP 

BG  10 

/NO,  SO  CONTINUE 

40*213 

BG  1  1 , 

JPP 

BON* 

/YES,  SO  RETURN  TO  DISPLAY 

2075*6 

PC*, 

LAC 

( TEXTLINES+3 

/G8T  STARTING  ADDRESS  OF  lfXT 

2*7135 

OAC 

FLIPF 

/SAVE  FDR  INDIRECT  ADORFSSING 

NEXTCRT  CRTTI 

4*02  B57135  0 ZH  1  FLIPF  /INITIALIZE  TEXT  TO  SPACES 
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4403 

447135 

4404 

127550 

404402 

207546 

247135 

4  410 

207525 

244466 

760001 

4463 

650001 

4464 

604421 

720004 

177777 

463777 

4470 

463777 

057135 

257135 

760001 

44  74 

444466 

627562 

404421 

207525 

4500 

244466 

447135 

127550 

404421 

4504 

404213 

4511 

604213 

423715 

423726 

4514 

423735 

227474 

170550 

4527 

207546 

4530 

247112 

J47135 

217112 

440100 

4534 

404542 

•47135 
447  1  12 
827550 

4540 

404532 

404544 

147135 

404536 

BG  1  3, 

PG  12, 

BGI4, 


M4Z  t 

W3Z, 
BG5N4 , 

PG  15, 

PG  3 1 


GB, 


ICX  FLIPF  /UPDATE  TEXT  BUFFER  POINTER 
SAS  (CHANNFLS-2  /ARE  WE  PONE  YFTi 
JKP  .-3 

LAC  (TEXTLINFS+3  /GET  STARTING  ADDRESS  OF  TEXT 
DAC  FLIPF  /SAVE  FOR  INOIRFCT  AOPRFSS 


/INITIALIZE  prcked  WOR[ 


LAC 

<  XCT 

BG  1  5 

/IMTIALY  PACKER 

OAC 

BG  14 

CL  F 

1 

RE  PL 

AY  0, 

0 

/RESET  THE  Cl  SPLAY 

rfplay  1, 

2.TFXTL1KFS 

REPLAY  I, 

1 » C  ONT 

1  NtlE 

RESPOND  0 

,BG  12, 

i BG5N4 

S/F 

1  1 

/TYPEWRITER  INPUT! 

JFP 

BG  13 

/NO 

TYI 

/YES 

RCL 

9S 

/PUT  CHARACTER  IN  AC 

RCL 

9S 

1  DR 

I  FL1 

PF 

/PUT  CHARACTER  IN  TEXT 

DAC 

1  FL1 

PF 

CLF 

1 

IOX 

BG  14 

SAS 

(XCT 

8G 1 5  *3 

/HAVF  WE  DONE  3  CHARACTERS 

JKP 

BG  1  3 

/NO 

LAC 

(XCT 

PG  1  5 

/YFS,  SD  RESET  PACKER 

OAC 

BG  14 

iox 

FLIPF 

/UPCATE  TEXT  POINTER 

SAS 

(CHANNFLS-2 

/HAVF  WF  FXCEEDED  THE  BUFFER 

JPP 

BG  1 3 

/NO 

JPP 

BGN4 

/YFS,  SO  ‘HIT*  ’CONTINUE* 

NEXTCRT  0 
I  SET  D'LYT,  1  C!  0P 
JMP  BGN4 
JSP  7 W I 

JSP  7W2  /PACKING  INSTRUCTIONS 

JSP  7 W 3 
L 10  ( 77 

JDA  9PT  /TYPE  A  CARRIAGE  RFTURN 

NEXTCRT  CPTTO 

R FPL  AY  I,P 

LAC  ITEXTLlNFS*3 

0  AC  XCC 

OZP  FLIPF 

LAC  I  XCO 

SZA 

JWP  .*6 
IOX  FLIPF 
ICX  XCD 

SAS  (CHANNELS-2 
JNP  GP 
JMP  .♦* 

0/M  FLIPF 
JPP  .-5 
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*5**1 

207563 

LAC 

127135 

SUB 

*27135 

SUB 

*27135 

SUB 

4SS0 

*03777 

RCL 

4*3777 

RCL 

2075*6 

LAC 

170*51 

JCA 

*55* 

227*7* 

L  I  0 

170550 

JOA 

20756* 

LAC 

227200 

L  I  0 

*560 

170*51 

J  DA 

220  1  13 

L  1 0 

170550 

JOA 

40*213 

JMP 

( 3«CHANNELS-3« TEXTLINES- 15. 

FL  IPF 
FLIPF 
FL  IPF 
9S 
95 

(TEXT11NES  .5 

TYPE  /TYPE  OUT  TITLE 

(  77 

9PT 

( Channel  5+3 

(12.  /TYPE  THE  WORD  'CHANNELS* 

TYPE 

CHNSEL 

9PT  /TYPE  THE  CHANNEL  NUMBER  SELECTED 

BGN4  /GO  BACK  ANO  MONITOR  OISPLAY 


2*7112 
*6t636 
485037 
207  I  12 
473201 
207171 
452200 
207565 
30*576 
217566 
•07177 
027*60 
1*7567 
257566 
201562 
450ie2 
60*633 
761000 
2*7112 
207*13 
2*7135 
217135 
104576 
•  2  7*60 
•*7567 
257135 
700011 


OAC 

I5P 

JMP 

LAC 

RCR 

LAC 

SPI 

LAC 

OIP 

LAC 

ANO 

IOR 

OAC 

LAC 

S/A 

JMP 

CMA 

OAC 

LAC 

DAC 

LAC 

XCT 

ANO 

IOR 

OAC 

LAW 


XCP 

MOVOEL 
B  6 

xcr 

is 

(ADD 

I 

(SUB 

movoir 

I  (TRACF+2 
(  1 

(  1777 
( 12002? 

I  (TRACF+2 
N 

B644 

XCD 

(l 1MITS+2 
FL  1PE 
I  FLIPF 
MOVOIR 
(  1777 
(  120000 
1  FLIPF 
9. 


107135 

ACD 

FLIPF 

*62f 

2*7135 

DAC 

FLIPF 

217135 

LAC 

I  FLIPF 

10*576 

XCT 

MOVO  IR 

027*62 

ANO 

(1777 

*62* 

0*7567 

IDR 

(  120000 

257135 

DAC 

I  FLIPF 

700012 

LAW 

10. 

107135 

ACO 

FLIPF 

*630 

2*7135 

OAC 

FL  IPF 

70 


4631 

467  1  12 

ISP  XCD 

40461 1 

JMP  MOVPCK 

7 1 0  083 

P644  , 

LAW  I  3 

463% 

244636 

DAC  MOVOEL 

405037 

JMP  B 6 

000008 

MOV  CEL  , 

S 

4637 

200113 

PG2 » 

LAC  CHNSEL 

46  40 

45eie0 

S  7  A  I 

405626 

JMP  PC.9e  /ILLEGAL  CHANNFL  SFLECT 

420112 

SLB  NUPCHN 

4405ee 

S/M 

4644 

405626 

JMP  PC9B  /NOT  THAT  NANY  CHANNELS  ON  T HE  TAME 

NEXTCRT  C«TCDN 

REPLAY  1  ,P,fc',CHNMES 

4  655 

200113 

LAC  CHNSEL 

427177 

SCfl  (1  /GET  NO.  CF  RECORDS  TO  SHIP 

2446  70 

DAC  .+9.  /TO  START  OF  JOP 

TAPSPC  CNSTY ,TAPf ,  1 ,0  ,  JMP  BGN1 

TAPRED  PNSTY, TAPE,  1, 38030, 37777, JHP  8G99 

4707 

425707 

BG40  , 

JSP  EIXDAT 

REPLAY  1,  1 

RFPLAY  1  ,2  ,Tf XTLI N£S,NEXTF  ILE 

REPLAY  1  ,2, CHANNELS, CONTINUE 

REPLAY  1 »  2 , PAStLN 

REPLAY  1,2, INFO 

KEPLAY  1,2, TRACE 

RE  PLAY  1  , 2, OAT  \ 

BUTEST  11., PBB  /IS  THE  THEORETICAL  HUTTON  ON* 

4766 

405226 

jnp  B9 99  /NO 

200101 

PBB, 

LAC  FLIPFLOP 

4770 

45eiee 

S/A  I 

405226 

JMP  B999 

REPLAY  l,?,THYTei 

5000 

201562 

B999B , 

LAC  N 

6  50  100 

S/A  I 

405024 

JMP  B 5  /NO  LIMITS,  SO  DON'T  DISPLAY 

76ie00 

CM  A 

5004 

247135 

0 A  C  FLIPF 

207252 

LAC  ILIMIIS 

247137 

DAC  SHE 

207137 

BPB7  , 

LAC  5HH 

5010 

405013 

JMP  /SKIP  OVER  AC  PICKIJP 

REPLAY  1,2, LI  HITS 

50  17 

207137 

LAC  SHE 

5020 

407251 

ACO  t  19. 

247137 

OAC  5HH 

467  1  35 

ISP  FLIPF  /ARE  ALL  LIMIT  PAIRS  DISPLAYED 

405007 

P5 » 

JMP  B9fl 7  /NO  SO  LOOP  BACK  FOR  KFST. 

HIJTEST  1  ?.  ,  BG46  /STOP 

5030 

764000 

CL  I 

762200 

LAT 

673777 

RCR  9  S 

473007 

RCR  3S 

71 


503* 

6043 


5204 

52  tf 

5214 

1220 

1224 

6234 

6240 

1250 

5251 

>251 

5261 


127232 

640100 

404544 

140104 


200114 

640100 

405235 

140111 

404716 

200115 

227574 

507227 

220110 

507177 

2201*7 

450100 

227257 

463777 

443777 

761000 

240111 

405406 

405000 

762200 
*75777 
02  7 1 77 
500  106 
405244 
240106 
405406 

404716 

405412 

405251 

V00001 

240104 

405044 


R6  * 

07, 

XTAG1 , 


P  10, 


B99  9  i 
eG6  0, 


BG782, 
BG  78  1  , 
BG  78  IK, 
BG4  7, 


AMO  (  3 
S  2  A 

JMP  MOVTR 

BUTS  ST  1l«,eG47  /THEORY 

028  THEORY  /CO  NOT  CALCUl ATE  THEORETICAL  BELL 

BLTEST  1 0 • , BG48  /LIMITS 

8UTEST  3 , XT  AG 

REPLAY  1 »?, TRACE 

1 RP  9,  ,0, 1,2, 3, 4, 5,6, ft 

REPLAY  1 ,2,L1*1TS«B«19. 

ENOIRP 

REPLAY  1,2, LIMIT S40»19a 

1,  REPLAY  1,2,L1M1T$41*19. 

2,  REPLAY  1 ,2, LIMITS*?*  19. 

3,  REPLAY  1 ,2,L1MITS*3*19. 

4,  REPLAY  U2.LIM1  TS  +  4*19. 

5,  REPLAY  1 ,2,LIMI TS*5« 19. 

6,  REPLAY  1 ,2,IIM1TS*6*  19. 

7  REPLAY  1 ,2,L1MITS*7* 19. 

B8 ,  BUTEST  9..BG49  /TIME 

REPLAY  1,2,0, FRAME 

REPLAY  1,2,0,T1 MCRT 
REPLAY  1 ,2,0,TIMCRT*6 
REPLAY  1 , 2 »  0 , T I MCR T* 1 2. 

RFPLAY  1,2,0, T1MCRT+18. 

/TIME  GATE 


LAC  T1MGAT 
S  2A 

JMP  BG60 
ISP  TOC 
JMP  BG40 
LAC  STYLE 
L 1 0  (-1 
S  AO  (2 
L  10  TD2 
SAD  (  1 
L I  0  T0 1 
SZA  I 

L10  (377777 
R  CL  9  S 
RCL  9  S 
CM  A 

0 AC  TOC 
JMP  BG 73 

REPLAY  1 ,2,0, THYTBL 
JMP  B999B 
LAT 

SAR  9  S 
ANO  (  1 
S AO  PROCEO 
JMP  BG7B2 
0 AC  PROCEO 
JMP  8G70 
BUTEST  6, PG78 I 
JMP  RO40 
8UTEST  6 , BG  7  B 1 K 
JMP  RG70K 
RFPLAY  1,2 
JMP  RG781 
LAW  1 

DAC  THEORY 
JMP  R  7 


/CN  OR  OFFt 
/ON 

/LPOATE  TIME  OFLAY  CLOCK 
/CLOCK  NOT  YET  OONE 
/TIME  TO  GET  NEXT  FRAME 

/MOCERATE  SPEEO 

/SLOW  SPEEO 

/FRAME  BY  FRAME 


/RESET  TIME  OFLAY  CLOCK 


/GET  BUTTONS 

/ELIMINATE  ALL  BUT  PROCEED  BUTTON 
/CHAR.  BUTTON  CHANGED  I 

/NO,  SO  CHECK  IF  FRAMF  SHOULO  HE  SKIPPED 
/YES,  SO  SAVE  PRESENT  ATA1US 


/SET  THFORY  SUTTON  STATUS  TO  On 
/TEST  REMAINING  BUTTONS 
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526*1 

5321 

5324 

53  38 

53  65 

537! 

537M 

540! 

»404 

54  1! 

54  U 

54  44 

545! 

5454 

546! 


t  pie?  ee  i 


PG4  9,  LAW  1 


240103 


200115 

147217 

147177 

760000 

407253 

40S333 


700001 
240114 
140115 
404716 
200107 
227177 
40540  1 
200110 
227227 
40540  1 
7  1000  1 
227232 
761000 
240111 
320  1  15 
140  1  14 
404716 
140101 
42 1254 
447126 
423554 
7 1 000 1 
400  1  12 
245425 


425707 
217575 
427217 
440200 
405412 
427576 
440400 
10  54  12 
423701 
704716 
242520 
602352 
70000  1 
740  105 


PGGB0, 

BGG8  I  , 

BGG8  2  ? 

PGG83, 

PG70  t 

BG70K, 


PG99, 


OAC  T 1  PE 

REPLAY  1,1, FRAME 
REPLAY  1,?,0,T1MCRT 
REPLAY  1 ,2,0,TIMCRT*6 
REPLAY  1 , 2,0  ,  T1 MCRT*  12 
REPLAY  1  ,2,0,TIMCRT*18 
LAC  STYLE 
HUL  <6 
Dl  V  (  I 
NCP 

ADO  UIMCRT 
JMP  . ♦ 3 
REPLAY  1,1 
RESPOND  0,RG40 
LAW  1 


/JUMP  OVER  FAKE  AC  PICKUP 
/DISPLAY  CARET 

.  .  ,  »  *  ,  *  tBGGflP, RGGB 1 , BGG82, RGG83 


/TURN  ON  TIME  GATE 
/SELECT  FRAME  MOOF 


OAC  TIMGAT 
D/M  STYLE 
JMP  BG40 
LAC  TUI 
L  I  0  (1 
JMP  .+6 
LAC  T 02 
L  I  0  12 
JMP  .+3 
LAW  1  1 

L  1 0  (3 
C  M  A 

OAC  TOC 
DIO  STYLE 
OZM  TIMGAT 
JMP  BG40 
0  7  M  FLIPFLOP 
JSP  CALCUl 
I  0  K  F  »MCNTR 
JSP  0S0S1 

LAW  I  1 

A CO  NUMCHN 
OAC  •♦9. 

T  APS  PC  ONSTY , TAPE , l ,3 , JMP  BGN 1 

TAPREO  ONSTY, TAPE  ,1,30000, 37777, JMP  BG99 

JSP  F  I  XOAT 

LAC  1  (30002 

SUB  (6 

SPA 

JMP  BG70K 
SUB  ( S  000 . 

SMA 

JMP  RG70K 
JSP  OS0S2 
LAW  BG40 
OAP  RETURN 
JMP  CTRACE 
LAW  1 

OAC  E  OF  I  NT 


/SLOW 


/MODERATE 


/FAST 


/SET  UP  TIME  CLOCK 
/SELECT  PROPER  MODE 
/TURN  OFF  TIME  GATE 

/INSURE  NEW  THEORETICAL  BELL 
/CALCULATE  HYSTOGRAM  ANO  BELL 

/DISPLAY  INFO 


/THIS  FRAME  HAS  TOO  MANY  POINTS 

/empty  frame  so  skip  ano  display  tape  i.o. 


/MARK  ENO  OF  FILE  C0N01T10N 


73 


5462 

1%  7  13  I 

BG46, 

OZM  MNTERRO  /  ZERO  INTFRRO  BUFFER 

PG  I  0  0  . 

REPLAY  1,1, info 

REPLAY  l,?,THISf|LE 

REPLAY  1 , 7 , OOCUMf  N  ? 

REPLAY  I, 2, CHANNELS 

PUNCH 

RESPONO  0 ,  PG  1 00, nG74,ABC4 ,,,,,,,,,,, ,HG 73, 8G7  I , 

5552 

*00  1  12 

HGNN  3 , 

ACO  NUKCHN  /LOOKING  FOR  NO.  OF  CHANNELS 

2401  12 

0  AC  NUPCHN  / SAVF  THIS  IN  TE  RUM  VALUE 

155% 

*04  127 

PG 74 , 

JKP  BGN3  /ANC  HEEP  GOING 

BUTFST  12.,  BG  76  /IS  STOP  BUTION  ON* 

NEXTCKT  CRTNE 

1563 

200105 

LAC  EOFIND 

/NO,  SO  IT  EJO.F.  INDICATOR  ON  * 

5  56% 

*50100 

SZA  I 

604305 

JMP  BG!  / NO,  SO  CCNTINUF  WITH  THIS  FHf 

140105 

OZM  E OF  I  NO  /YES,  SO  TURN  OFF 

604040 

P  G  7  6  , 

JMP  BGM  /ANO  TAKE  NEXT  FILE 

RFPLAY  I, ;i, SORRY 

55  76 

605555 

PG  7  3 , 

JMP  eG74 

BUTEST  1 2 . , BG7  7  / I 5  STOP  BUTTON  ON  % 

NEXTCRT  CRTTF 

5605 

*04154 

BG  7  7  * 

J*P  RGK  /START  THIS  FILE  OVER  AGAIN 

REPLAY  1,0, SORRY 

PUNCH 

5625 

*05577 

RG9R, 

JMP  RG73 

REPLAY  1  ,  2  » CHNME  S 

563% 

604213 

JMP  PGN4 

ABC 4  « 

NEXTCRT  C D TCON 

BUTEST  12., ABCS 

REPLAY  I,  2,0, SORRY 

REPLAY  1,2,0, THISE I L  E 

REPLAY  1 , 2, P, DOCUMENT 

REPLAY  1,2,0,OATAX 

5673 

200  105 

L*C  EOF  1 NC 

567% 

650100 

SZA  I 

604716 

JMP  BG 42 

140105 

OZM  EOFIND 

604040 

ABCS, 

JMP  BGM 

REPLAY  1,2, SORRY 

1706 

*05635 

JWP  ABC4 

1707 

265724 

F  IXOAT, 

CAP  .♦13. 

5710 

211530 

LAC  I  43 

407227 

ACO  12 

761000 

CM  A 

247135 

OAC  EL1PF 

571% 

211532 

LAC  1  4  7 

475377 

SAR  8S 

251532 

OAC  I  47 

441532 

ICX  H  7 

5720 

*67135 

ISP  ELIPF 

605714 

JMP  .-5 

207353 

LAC  ( 30006 

24  1532 

OAC  4  7 

S72M 

600000 

JMP 

74 


/LIMIT  BUTTON  PROCESS  CONTROL 


OEF INE 

seiname 

LAC 

•F  IRSTX 

/0  MEANS  NCT  WORKING  ON  A  NEW  SET. 

SZA 

l 

JMP 

.♦u 

/LEAVE  SE  T  DEF  N  ALONE 

IDX 

N 

/SET  UP  FDR  NEW  LIMITS  SET. 

DZM 

f  IRSTX 

DZM 

•SETDEF 

/ DEF N  COMPLETE  INDICATOR 

TERMINATE 

DEF INE 

POT 

LAC 

NCP 

/LIMIT  SET  DEFINITION  IS  COMPLETE 

I  DR 

SETDEF 

/WHEN  SETDEF  EOUALS  3«*  BASF  8 

DAC 

SETDFF 

TERMINATE 

DEF INE 

sen 

“NOW 

JSP 

FH 

TERMINATE 

57 2% 

26  573«i 

EH, 

DAP 

*  ♦  7 

942210 

LAI 

127600 

AND 

1237 

5731 

265732 

DAP 

.♦2 

473377 

RCR 

8  S 

700000 

LAW 

■  2  732  T 

AND 

137 

5734 

405734 

JMP 

. 

PG48,  REPLAY  1.2.0. CA  T  A 

s  e  l  ► 

'NOW 

57*4 

247141 

DAC 

*  PRE  S  / SF  T  P  RE  SF  NT  STATUS 

1^0  1  14 

D/M 

NCP 

147141 

DZM 

•  STATUS 

700001 

LAW 

1 

1750 

247142 

DAC 

•FIRSTX 

147156 

DZM 

SETDFF 

REPLAY  1 1  2  *  0  «  T  HY  T  R  L 

5761 

20156 2 

LAC 

N 

450100 

SZA 

I 

406004 

JMP 

G  1 

741000 

CMA 

1764 

247135 

DAC 

FL1PF 

207601 

LAC 

(NAME 

247137 

DAC 

5HH 

207137 

3H4 (  LAC 

5HH 

5770 

405773 

JMP 

.♦3 

REPLAY  1,2. NAME 

5777 

207137 

LAC 

5HH 

6000 

407221 

A  CD 

<7 

247137 

DAC 

5HH 

75 


4  002 

402) 

602* 


403? 

404* 

4051 

4060 

4  064 

407) 

4074 

4  102 
41  U 

4114 

4151 


167135 

405767 


247140 
452000 
406647 
S27  141 
406424 


ISP  FlIPF 
JKP  3H4 

Gli  REPLAY  1,2, CHANNEL 

REPLAY  1,2,0, L  SONC 

G2,  SBLMN04 

DAC  PRES 
SP 1  1 
JKP  G1 1 
SAS  STATUS 
JKP  G  10 


OEF1NE  TESTA  B 
RCR  IS 
SPI 
JKP  B 

TERK1NATE 


200  1  16 
473001 


G  3 , 

PUNCH 

LAC  NCP 

RCR  IS 

1RP  A,,G6,G7, 

,  G8 , G9* 

A,  , 

TESTA  A 

END1RP 

G6 , 

TESTA  G6 

G  7, 

TESTA 

0  7 

Gti, 

TESTA 

G8 

G9 

TESTA 

G9 

720127 

406060 

720125 

200122 

127473 

427603 

450200 

406073 

201562 
450100 
406004 
74 1 000 
241552 

406105 

441552 

406114 

406004 

700023 

401553 

406102 


G4, 


G3  1  , 


G385G, 


G40  , 


OSP 

JKP  . ♦ 2  /IGNORE  THE  LIGHT  PEN 

DR S  /PY  RESUMING  AFTER  A  HIT 

LAC  XYNDW 
AND  1777 

sub  i » e 3 

SPA  1 

JKP  G3B5G 

REPLAY  !,2,0,NAMCRT 
LAC  N 
SZA  1 

JKP  G  l  /SKIP  IF  NO  LIMITS 

CM  A 

DAC  SAVE  XX 

SETUP  SAVFYY, (LIMITS 

JKP  .*3  /SKIP  OVER  DUMMY  AC  LOAO 

REPLAY  1,2, LIMITS 

ISP  SAVE X X 

JKP  .  ♦  2 

JKP  G  I 

LAW  19. 

ADD  SAVEYY 
JKP  G40 


207123 
42  7601 
147177 
647221 


G6,  REPLAY  1 , 1 , NAME 

RESPOND  0,G31  «,,,«,««  ,,,V,,,^,,G3L,,G4L 
G3L  ,  LAC  RESPP  / A  NAME 

SUB  1NAME 
MIL  (  1 
D  1  V  17 
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6  1  6§ 

760000 

NOP 

407177 

G5L  , 

AOD 

(  I 

247143 

DAC 

•  SETOPELE  TE 

NAMECARET  SETOCfclETF 

6206 

606060 

JBP 

G  3  1 

6207 

207123 

G4L, 

LAC 

RESPP 

6210 

627252 

SUB 

1  L  1B1TS 

547177 

HUl 

1  1 

567251 

01V 

t  19. 

760000 

NOP 

621% 

606  161 

JBP 

G5L 

G7 « 

PO  T 

TRACK  S 

6226 

650001 

SZF 

1  1 

606055 

JBP 

G4 

G44  , 

REPLAY  1,2 

6231 

720004 

TYI 

760001 

CLF 

1 

760200 

CLA 

6234 

673077 

RCR 

6  S 

10  7533 

SAD 

1 770000 

406257 

J  BP 

G45 

663077 

RCL 

6  S 

6240 

217157 

LAC 

1  GXG  3 

137157 

PI  0 

1  GXG  3 

661077 

RAL 

6S 

§57  157 

1  OR 

1  GXG3 

624% 

257157 

DAC 

1  GXG  3 

167  144 

1  SP 

*  GXG  1 

606055 

JBP 

G4 

447157 

1  rx 

GXG3 

1  SET  GXG1 ,3 

62S2 

667145 

1  SP 

G'XG2 

606055 

J  BP 

G4 

62  5% 

706272 

L  A  Vi 

ENCOFT 

227215 

110 

15 

170451 

JL'A 

TYPE 

T60001 

C4  5, 

CLF 

1 

6260 

207144 

L  AC 

GXG1 

4271 77 

SUB 

(  1 

24  7  144 

DAC 

GXG1 

467144 

1  SP 

G  xr,  1 

626% 

606266 

JBP 

.♦2 

606004 

JBP 

G1 

217157 

LAC 

1  GXG  3 

/WE  ARE  NOW 

PUSHING  SECOND 

HALE  Of 

NAME 

661077 

RAL 

6S 

/CVER  WHEN 

LESS  THAN  THREE 

LETTERS 

ARf 

6270 

257  157 

OAC 

1  GXC3 

/LSED. 

606263 

J  BP 

.-6 

2223*6 

ENDOFT, 

TEXT 

/STO 

6271 

477700 

/ 

77 


G8 

G8T 


I  SET  ' 0 WNDRU P »  1 
PCT 

REPLAY  1,  I  »  TRACE 

RESPOND  G.G31 . ..,,,,G5 3 


6341 

227166 

G53 «  LID 

DWNDRUP 

766013 

LAW 

10. 

<62600 

SPI 

6  3*8 

487613 

ADD 

(-9. 

407252 

ADD 

(LIP! TS 

267167 

0  AC 

G  *  XG  1  T 

281562 

LAC 

N 

6366 

427177 

SUB 

(  1 

867251 

MUL 

(19. 

8*7177 

0  IV 

(  1 

260000 

NDP 

6351 

407167 

ADD 

GXGIT 

267167 

DAC 

GXG1T 

280122 

LAC 

XYNDW 

827673 

AND 

1777 

*356 

4*5001 

SAL 

IS 

267150 

OAC 

GXG*2T 

267135 

0  AC 

FLlPF 

217167 

LAC 

I  GXGIT 

4361 

827616 

AND 

I  776000 

867150 

IDR 

GXG2T 

257167 

DAC 

I  GXGIT 

467167 

1CX 

GXGIT 

4366 

20012? 

LAC 

XYNDW 

966800 

CLI 

•73777 

RCR 

9S 

461001 

R  AL 

IS 

63  78 

247150 

DAC 

GXG2T 

217167 

LAC 

1  GXGIT 

027616 

AND 

( 776000 

867150 

I  OR 

GXG2T 

6376 

257167 

DAC 

I  GXGIT 

227166 

LID 

DWNDRUP 

207135 

LAC 

EL  IPE 

*62600 

SPI 

6688 

247151 

DAC 

'433H 

<82000 

SPI 

I 

267  152 

OAC 

•6  33L 

207151 

LAC 

6  33H 

6604 

427152 

SUB 

633L 

267153 

OAC 

•DELL IM 

227166 

LID 

OWNORUP 

281562 

LAC 

N 

66  18 

481562 

ACO 

N 

407615 

ADO 

IYXYXL-? 

452000 

SP  I 

I 

407177 

ADD 

(  1 

6616 

267167 

OAC 

GXGIT 

280122 

LAC 

XYNOW 

/-9  IE  UPPER  IS  ON,  ELSE  LOWER 
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4414  827473 

66500  1 
4420  257147 

6060612 


4422  347146 

404274 


AND  <7 77 
SAL  IS 
0 AC  I  GXGIT 
JMP  G31 


OZM  OWNORUP 
JMP  GHT 


4424 

20714 1 

G10 » 

LAC  STATUS 

067140 

XDR  PRES 

247154 

0 AC  GXG1'* 

PUNCH 

4440 

20714e 

LAC  PRES 

827154 

AND  GXG1N 

/GET  STATUS  CHANGE 

247155 

DAC  GXG2’M 

/ 0  =  *  OFF  * 

SETUP  STATUS, PRES 

4445 

207154 

A*  t 

LAC  GXG1M 

IRP  A, ,G  70, G71 
TESTA  A 

ENOIRP 

, G72,G73,G  74  ♦ 

G70  » 

TESTA  G70 

G  7  1 , 

TESTA  G7 1 

G  72, 

TESTA  G72 

G  73, 

TESTA  G73 

G  7  4 

TESTA  G74 

6  4  65 

740400 

DEFINE 

TESTB  A , B 

LAC  GXG2M 

SZA 

JMP  A 

JMP  B 

HLT  /ERROR  HALT 

TERMINATE 

G70, 

TESTB  G  1  2 , G 1 4 

/ON, OFF  REDEFINE 

G7  1  , 

TESTB  G 1 3 , G 1 5 

/  OELETE 

G72  » 

TESTB  C19,G13 

/  NAME 

G73, 

TESTB  G17.G16 

/  UPPER 

G  74 » 

TESTB  G2P ,  G2  l 

/  LOWER 

G  l  2 » 

SET  REDEFN, 1 

65  IH 

140122 

G12M, 

DZM  XYNOW 

606026 

JMP  G3 

G1  3, 

SET  NC  P , 2 

/CELETE  OFF  TO  ON 

6520 

606514 

JMP  G12M 

4521 

340  102 

G  1  4 » 

OZM  RECEFN 

/REDEFINE  ON  TO  OFF 

606523 

JMP  G99 

6523 

B40  1  16 

G99 , 

DZM  NC P 

4  524 

406020 

JMP  G2 

4525 

201562 

G18  , 

LAC  N 

/NAME  ON  TO  OFF 

645007 

SAL  3S 

421562 

SUB  N 

4530 

107616 

ACO  ( NAME  *7 

247144 

DAC  GXC1 

407177 

ADD  (  1 

247145 

0 AC  GXG2 

79 


653* 

*07)77 

ACD 

I  1 

247)57 

DAC 

GXG3 

2)7145 

LAC 

1  GXG2 

0276  )4 

AND 

(-1777 

*540 

0576)7 

10K 

I  (RPY+1000J 

257145 

DAC 

1  GXG2 

217)57 

LAC 

1  GXG  3 

0276 14 

AND 

(-1777 

6  544 

057620 

I  OK 

)  IRPX+1000P 

257157 

0  A  C 

(  GXG. 3 

207144 

LAC 

GXG1 

*06552 

J  VP 

.♦3 

REPLAY  t,2,NAMF 

6556 

*06523 

JVp 

G99 

006523 

G 1  6*G99 

/UPPER 

ON 

TC  OFF 

006523 
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404452 
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1C 

LAC  TABLE  7777 
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10464 

600467 
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TE  ST  1 

44046  1 
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TESTNEG 

60046  1 

jpp 

TE  STNFG 

1EST1  , 

REPLAY  1,? 

/PEEP  DISPLAY  GOING 

1  0470 

704267 

LAW 

ZLCC  7777*914. 

262472 

OAP 

.♦1 

10472 

204267 

404452 

TESTPCS, 

ADD 

(2 

LAC  ZLOC  7777*914. 

/START  (f  f  AT  oTMi 

10474 

640100 
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/TABLE,  do  the  SAME 

AS  ABOVE 

600502 

JPP 
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400472 

ACO 

TE  S1PCS 

1  0500 

240472 

0  AC 

USTPOS 
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1150) 

600*72 

JPP 

TESTPDS 

CDPPl,  REPLAY  1,2 

/KEEP  DISPLAY  GOING 

10503 

200*61 

COMPARE , 

LAC  TFSTNEG 

10501 

02**53 

AND 

(  7777 

62**5* 

SUB 

(ZLOC  7777 

677001 

SCR 

IS 

/ S ( NCE  HAVE  DOUBLE  PRECISION 

652000 

SPI 

I 

105  10 

12**1* 

SUB 

(  I 

6*0200 

SPA 

T61000 

CPA 

25**3* 

OAC 

(  (TEPP 

/ABSOLUTE  VALUE 

1051* 

200*72 

LAC 

TESTPDS 

02**53 

AND 

(  7777 

*2**5* 

SUB 

(ZLDC  7777 

6T7001 

SCR 

IS 

/SINCE  HAVE  DOUBLE  PRFCIS(ON 

10520 

6*0200 

SPA 

T61000 

C^A 

*3**3* 

SUB 

I  (TEPP 

6*0200 

SPA 

1052* 

600527 

JPP 

.♦3 

*1**3* 

ADD 

I  (TEPP 

25**3* 

DAC 

I  (TEPP 

21**3* 

LAC 

I  (TEPP 

10500 

*2**53 

AND 

(  7777 

665001 

SAL 

IS 

*0**1* 

ADD 

(  1 

761000 

CPA 

1053* 

25**55 

DAC 

1  (COUNTER 

/NUMBER  Of  STEPS 

REPLAY  1,2 

/KEEP  DISPLAY  GOING 

10536 

202**5 

LAC 

ZLDC  7777 

/LDH  ORDER  PART 

25**2* 

DAC 

1  (MAXIMUM 

/I  ST  ESTIMATE  TD  PAX.  VALUE 

105*0 

2*24*6 

LAC 

ZLOC  7777*1 

/HIGH  ORDER  PART 

25**56 

DAC 

1  (PAXIPUP* I 
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105*2 
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LAC 

1  (TEPP 

02**53 
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IS 
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F61 000 

CPA 

60**5* 
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260552 

DAP 
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ADDRESS, 
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I  (MAXI PUP*  1 

90 


10560 

*40552 
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ADORF  SS 

21**56 

LAC 

1  (MAXI  MUM* 1 

72007* 

LFM 

430552 

SUB 

I  ADOPESS 

/DIFFERENCE  OF  HIGH  OROER  PARTS 

1056* 

72*074 

E  EM 

<*0200 

SPA 

/TEST  WHICH  IS  LARGER 

600573 

JMP 

CHANGE 

/PUT  Y  INTO  MAX.  SINCE  IS  LARGER 

10567 

*40552 

BACK  f 
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ACORESS 

/MAX.  LARGER,  LEAVE  AS  IS 

10570 
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1  (COUNTER 

/TEST  IF  HAVE  OONE  EACH 

400550 

JMP 
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10572 
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JMP 
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10573 

720074 

CHANGE  f 
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EEM 
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OAC 
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LAW 

I  I 

10600 

*00552 

ADD 

AOORESS 

260602 

DAP 

.*1 

200602 

LAC 

.  . 

/LOW  ORDER  PART  OF  NEW  Y  MAX. 

254*24 

OAC 

1  (MAXIMUM 

1060* 

<00567 

JMP 

BACK 

/GO  BACK  AND  FINISH  TESTING 

/CONSTANTS 

10605 

777777 

ITT* 

777777 

TT, 

777777 

TP  1, 

10610 

777777 

TP2  * 
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CNE  , 

1 

777777 
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777777 

1061* 

777777 

SUMPOS, 

, 

777777 

777777 

CUMSUM, 

777777 

10620 

777777 
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777777 

TABLE 

12**1 

TABLE+91 5. 
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/LIGHT  PEN 
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L  PFOLL , 
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/SET  EXIT 

91 
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LAC 
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IDR 

WRPKAP 
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/PAR  PT 
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/PT  PT 
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DAC 
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044602 

ICR 
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/PT  PT 
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DAC 
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204571 

LAC 
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244613 

DAC 
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DAC 
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DAC 

L  BLF  F  ♦  5 
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LAC 

RPY 

404457 
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024460 
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DAC 
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044601 
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WPYWD 

244616 

DAC 
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14324 

204572 

LAC 

RPX 

404461 

ACD 
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244574 

DAC 
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044603 
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/PT  PAR 

1  4338 

244617 

DAC 
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244620 

DAC 
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204463 
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204464 
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(JPP  TRACK) 

244563 
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224465 
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624543 
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7*0400 
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244612 

DAC 

L  6CF  F ♦ ? 

204573 
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LAC 
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JPP 
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LAC 
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/NEW  REFERENCE  IN 

I  OR 

CPXWO 

DAC 
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LAC 
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144 Mi 

204573 

LAC 

VPT 
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404466 

ACD 

(47) 
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14450 
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*04537 

JPP 
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204573 

LAC 
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404466 
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204477 
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244620 

OAC 
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STPCOD 

244556 

DAC 

EDGH1T 
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224473 
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14464 

424543 
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DRC 
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473777 
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8S 
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404607 
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475001 

SAR 

IS 
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244573 

CAC 
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244571 

DAC 

RPY 

14520 
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WPYWD 

244613 
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LBUF  F ♦ 3 
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LAC 

LPSWCH 

*40400 

SPA 
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JPP 
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/YES 
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1 
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244367 
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LPSWCH 
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TRACK 
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204600 

RTX,  LAC 
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U534 
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/CAN’T  FIND  X 
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404437 
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204576 
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JMP  TRACK4 

204575 
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404501 
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RTRCUT 
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/SET  EXIT 
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404550 

JMP  .*2 

/NO 

404560 
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/YES 
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/L.P.  HIT 

404553 

JMP  .*2 

/NO 

404562 

JMP  LPHIT-1 

/YES 

721427 

DSE 

/EOGE  HIT 

14554 

404545 

JMP  .-7 

/NO  RECYCLE 

760000 

NOP 

800000 

EOGHIT 

*  0 

/EDGE  EXIT 

404557 

RTRXIT 

*  JMP  • 

1  4  560 

T60000 

NOP 

000000 

STPCOC 
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/STOP  EXIT 

720125 
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800000 
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0 

/L.P.  EXIT 

1456U 
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0 
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7 
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♦  030110 

•01033 

WPY, 

1033 

14570 

001033 

WPX, 

1  033 
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R  PY  , 

1033 
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RPX, 

10  33 

001000 

YPT, 
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14574 
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XPT  * 

1000 

000000 

WRYO, 

e 

801777 

WRYT, 

1777 

000000 

WRXL  , 

0 

14600 

001777 

WRXR  , 

1  777 

220000 

WPYWD , 

22000? 

822000 

WPXWD, 

022000 

002000 

CPXWC, 

002000 

1  4604 
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34110 
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CPWD  , 
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0 
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0 
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0 
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/DAD 

/  LID  1REG.  ND. 
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/ 

/ JD A  C  A  CD ' . 

/  LID  ACCRESS  DF 
/  LAC  LDW  ORDER 
/  JD  A  DADD 
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/ 

/ JDA  DD AC ' • 

/  LAC  LCW  ORDER 
/  LIC  LOW  ORDER 
/  JDA  D D AD 
/  RETLRN  /ANSWER 
/ 

/JDA  CINCEX*. 

/  LAC  ADDRESS  DF 
/  JDA  DINDEX 
/ 

/JDA  CPCIV'. 

/  LAC  ACDRESS  DF 
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/ 
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2  RFGISTER  NUMBER  I SX 
SUM  IN  ADDRESS  IN  AC 


2R  EG.  ND. 

ADDRESS  DF  2  KEG. 


ADDRESS  DF  4  REG.  ND. 
ADDRESS  OF  4  REG.  ND. 


IN  ADDRESS  IN  AC 

LOW  ORDER  PT.  CF  2  REG.  ND . 


LD*  ORDER  PART  DF  NUM.  I2R  > 
LOW  ORDER  PART  DF  DEN  I2R) 


IN  AC  ♦  12 1  SIGN»BIT0  IN  BOTH 


LAC  ACCRESS  DF 
LID  ACCRESS  DF 
JDA  DMLL 
ADDRESS  DF  4  R| 
RE  TURN 


/JDA  CPCIV4'. 

/  LAC  ADIRESS  OF 
/  LID  ACCRESS  DF 
/  JDA  CPCIV4 
/  ACDRESS  DF  4  R 
/  RETLRN 


LOW  ORDER  PART  OF  2  REG.  NUMBER 
LDW  ORDER  PART  DF  2  REG.  NUMBER 


HER  F  TO  PUT  ANSWER 


LOW  ORDER  PART  OF  4  REG.  NUMERATOR 
LDW  ORDER  PART  DF  2  REG.  DENOMINATOR 


EG.  ND.  TD  PUT  ANSERE  IN 


/JDA  CPCIVF'. 

/  LAC  ADDRESS  DF 
/  LID  ADDRESS  DF 
/  JDA  DPCIVF 
/  RETLRN  /ANSWER 


LDW  ORDER  PART  DF  4  REG.  NUMERATOR 
LDW  DRDFR  PART  DF  4  REG.  DENOMINATOR 


IN  AC  -  WILL  BF  ONLY  I  REG. 


1*630 

777777 

DM  AC. 

11*11 

OMAC+4+MDCULE / 
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REPEAT  4 .  ? 
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777777 

CMULAN, 
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14658 
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14669 

14664 

14678 

14674 
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214370 

LAC 

I  CMUIXX 

244640 

DAC 

DMULAN 

444370 
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D MUL XX 

344634 

DZM 

DMZERO 

344635 

DZM 
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344636 

DZM 
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344637 

DZM 

DMZERD+3 
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LAC 
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IS 

244631 

DAC 
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324630 

DID 
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344632 

DZM 
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DZM 
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204501 

LAC 
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224502 

LID 
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214642 

LAC 

I  CDMLL 

244371 

DAC 
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444642 
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214642 

LAC 
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654641 
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672001 

RIR 

IS 

244636 

DAC 
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DID 
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LAC 
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256660 
666660 
16736  206631 

256660 
666660 
206632 
1676*  256660 

666660 
206633 
256660 
16766  666660 

616370 


16766  777777  DDADL, 

777777  DDAt 

006767 

1675*  264372 

326  766 
206767 
266756 

16756  777777 

651000 
1676*  *06775 

660600 
406  77e 
666767 
16766  206505 

036767 
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256767 
16776  405160 
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1  CPAK 

ICX 

I, 

CPAX 

LAC 

MAC ♦ A ♦  1 

DAC 

I  CPAK 

ICX 

DPAK 

2, 

LAC 

maC*A*2 

DAC 

I  CPAX 

ICX 

DPAK 

3 

LAC 

MAC*  A ♦ 3 

DAC 

I  DP  A  K 

ICX 

CPAK 

ICX 

DP*  IX 

JMP 

I  CP*  ix 

REPEAT  8* , 0 


CDPDl V*DPC IV  7777 
DAC  *  D8XDX 
DID  DBXM 
1RP  GG,,t',I* 

LAC  I  CDPDIV 
DAC  DrtX+GG 
LAC  I  D<? X M 
DAC  D8X+A.+GG 
ICX  DPCIV  7777 
ICX  D8XM 
END1 RP 

LAC  I  CDPDIV 
DAC  C8X*P 
LAC  I  D8XM 
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156  78 

2*5655 

0  AC 

0RX*4  .  ♦? 

**5662 

I  OX 

OPOIV  7777 

**566  1 

I0X 

08  XM 

215662 

1 

LAC 

I  Q0POIV 

1567* 

2*5652 

0AC 

08X+1 

215661 

LAC 

I  08XM 

2*5656 

0  AC 

08  X+  * . ♦  1 

**5662 

I0X 

OPOIV  7777 

15  708 

**5661 

I  CX 

08XM 

20*515 

LAC 

<D8X* 10002 

22*516 

LID 

I Oex*4*10000 

1752*4 

JOA 

OPCIVF 

1570* 

225233 

LID 

MAC*5 

109 


i  was 

614410 

C8*D, 

JMP 

I  DHXC* 

H  706 

265720 

GG4LK , 

0  A  P 

.+  12 

760200 

CLA 

157  10 

667003 

SCL 

2  S 

024414 

AND 

(  1 

244404 

OAC 

TFMXL 

677003 

SCR 

2  S 

15714 

663777 

RCL 

9S 

6*3777 

RCL 

9S 

665001 

SAL 

IS 

044405 

10ft 

TFMXH 

15720 

605720 

JMP 

. 

/BASELINE  TAPE  RCU1INFS 

E OR  IBM  EQUIPMENT  —  2/26/6S 

722046 

Swl*  722046 

726046 

SWO*726046 

DEFINE  SWAP 

RCL  9 S 

RCL  VS 

TERMINATE 

15721 

815721 

CGGREG  GCOBEG 

REPEAT  0 I F  VP 

OOOPEG-10il,PRINTX  ( 

LOCATION  CF  TAPE  PACKAGE 

I  ♦ 

CCOCFN,  0 

MAV  INTERFERE  WITH  SEQUENCE  BREAK  SYSTEM. 

15722 

800000 

/DENSITY,  0  FOR  201  CPI,  I  FOR  556,  2  FOR 

ii/0 

800001 

COOUNT,  1 

/ LN I T , 0  THRU  7 

15724 

800000 

COOP A  R  ,  0 

/PARITY,  0  000,  1  EVEN 

800000 

COCRVfl,  0 

/REWINO  1  NO  I C  A  T  OR ,  0  FOR  NO  REWIND,  1  FOR 

REWIND 

000000 

ooosof,  e 

/POSITIVE  MEANS  START  CF  FUNCTION,  NEGATIVE  OlMRwIS 

000000 

QQCRP ,  0 

/RECORC  POINTER 

1  5730 

080000 

CCQJS,  0 

/LOCIJSP)  TO  TAPE  PACKAGE 

000000 

OOUDU,  0 

/CUR 

15732 

176257 

CCCWR, 

JOA 

QCCINT 

/INITIALIZE 

15733 

710003 

000WR2, 

LAW 

I  3 

15734 

246566 

DAC 

COOPT  C 

/INITIALIZE  BLANK  TAPE  COUNTER 

7i0e03 

CQC w  R  3 , 

LAW 

I  ? 

246567 

OAC 

CCGRWC 

/INITIALIZE  REWRITE  COUNTER 

CGOWR  1  , 

REPLAY  1,2 

15740 

426037 

JSP 

000  TC  7 

/GO  TC  TCU-UNIT  FREE  SR,  SETTING  SOF  TO  ♦t1 

?  3 1  e  7 1 

73  107  1 

15742 

626 127 

QCQWR6, 

JSP 

CQQPDC 

/PROCESS  CALLING  SECUFNCF  FOR  0 A  T  A  CHANNEL 

15743 

720346 

S  I A 

15744 

226560 

L  I  0 

00  Owe 

726046 

SWO 

/SWC  OUT 

15746 

426215 

JSP 

COCEXF 

/EXECUTE  FUNCTION,  TEST  FOR  ACCEPTANCE  AN 0  COMPLETION 

00000 1 

1 

/INCREMENT  RfCORO  COUNT 

no 


1 5758 

*0575* 

JMP  000WR7 

/ERROR  RETURN 

?0ee05 

LAW  5 

/NO  ERROR — GO  TO  NORMAL  RETURN 

*0.5  730 

COOwRY, 

ACO  OOCJS 

606313 

JMP  OGOOUT 

/CO  BACK  TO  MAIN  PROGRAM 

15758 

*2602* 

000WR7, 

JSP  QCCT  Pt 

/GO  TO  SEE  IF  ANY  ERRORS  BESIDE  END  PT 

15751 

*0  5  761 

JMP  GQCWRB 

/NON-ENO-PT  ERRORS 

11756 

76*000 

CL  1 

/IN01CATES  ENO  PT  NOT  DURING  WRITF  BLANK  TA^f 

70000* 

000*12, 

LAW  * 

15768 

605752 

JMP  COCWRY 

/CO  TO  END  PT  RETURN  IN  MAIN  PROGRAM 

15761 

*26037 

00QWR8, 

JSP  CQCTCZ 

730*71 

730*71 

/BASIC  BACKSPACE  FUNCTION 

16763 

*2621* 

JSP  OOOEXF-1 

/DISCONNECT  DATA  CONTROL  AND  EXECUTE 

FUNC  T [ On 

1576* 

777776 

-1 

/DECREMENT  RECORO  COUNT 

*06005 

JMP  OOCBEW 

/ERROR  RETURN  FROM  BACKSPACE  AFTER  WRITE 

**6567 

000WR9, 

I SP  OOCRWC 

/normal  return 

*05737 

JMP  OOGWR 1 

/REWRITE 

15770 

710010 

LAW  I  10 

2*6552 

OAC  OOOCT  I 

/SET  COUNTER  TO  WRITE  BLANK  TAPE  8  TI 

MRS  FOR 

15772 

*26037 

OOOWI0, 

JSP  OOOTC7 

731071 

731071 

/BASIC  WRITE  MTf 

1577* 

*2621* 

JSP  OQCEXF-1 

/DISCONNECT  DATA  CONTROL  AND  EXECUTE 

FUNC  T ION 

777777 

-e 

/CO  NOT  CHANGE  RECORO  COUNT. 

*06011 

JMP  OOCHTF 

/ERROR  RETURN  FROM  WRITE  BLANK  TAPE 

**6552 

COO W  1  1, 

1  SP  OOOCT  1 

/NORMAL  RETURN 

I  A 008 

*05772 

JMP  OGOWI0 

/ 6  INCHES  BLANK  TAPE  WRITTEN. 

16001 

166566 

ISP  QGCBTC 

*05735 

JMP  000WR3 

/ 1 N I T .  REWRITE  COUNTER 

1600J 

700003 

C00W1  3, 

LAW  3 

1600* 

605752 

JKP  OQOWRY 

/GO  TO  UNSUCCESSFUL  Kf  TURN  IN  MAIN  PROGRAM 

1*001 

•26336 

OOOBEW, 

JSP 

oocss  r 

/ S AVF  STR  AND  ILC. 

226536 

L  1  0 

0QCC9 

6262* 1 

JSP 

OOOETY 

1*0  18 

•85766 

JMP 

CCCWR9 

/GO  TO  NORMAL  RETURN 

1601) 

•26e2* 

OOQRTE  , 

JSP 

OGOEPt 

/PLANK  TAPE  ERROR 

*06015 

JMP 

OCOBTF 

/THERE  ARE  NON-ENO-PT  ERRORS 

22655* 

L  10 

OUOOU0 

/MAKE  10  NEGATIVE  1MPIIFS  END  PT  DURING  WWITE 

1*0  1* 

605757 

JMP 

GOG W 1 2 

/GO  TO  ENO  PT  RETURN  IN  MAIN  PROGRAM 

16011 

*26336 

OQOPTE , 

JSP 

OOCSST 

/SAVE  STATE 

226537 

L  10 

OOOC IP 

•262*1 

JSP 

OOOETY 

16028 

•  *  1 177 

RAL 

7$ 

6*0200 

SPA 

606013 

JMP 

OOOBTE  2 

/END  POINT 

TOTAL  0 


BLANK  T  A 
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T  Aft  2  3 

405777 

JMP  01JQW  1  1 

1602% 

266232 

GoGEPE, 

DAP  OOGCPX 

SWAP 

1  A  ft/  I 

026562 

AND  OOCMK.  1 

1  6  ft  3(1 

Asaieft 

S/A  I 

%  4  6  0  3  2 

I  OX  (1QQEPX 

406032 

COOT  P* » 

JMP  . 

16e33 

226554 

OGGT  Cft  f 

L  10 

GCQOUl* 

1  Aft  3% 

125726 

DIO 

OOQSOE 

266123 

DAP 

OCCTCX 

Aft  6  262 

JMP 

OQCTC  3- 

1  6  ft  37 

*45726 

GOOTCZ , 

D7M 

OOQSOE 

1  6  ft  4  ft 

266103 

OOQTC  1 , 

DAP 

OQCTC  X 

266245 

DAP 

OQCTC? 

REPLAY  1 , 2 

16041 

205724 

L  AC 

QCQPAR 

16  044 

A65177 

SAL 

7  S 

046245 

CGQTC2, 

I  OR 

. 

2462/2 

DAC 

ClQCE  x  1 

446  103 

IPX 

COOT  C  X 

16050 

7  ft  ft  ft  ft  t 

L  AW 

1 

405722 

ACD 

OUCQEN 

A6  50ft  7 

SAL 

3  S 

045723 

1 0R 

00 GUN  T 

16054 

A65077 

SAL 

6S 

045725 

IOR 

QOGRW I 

046554 

1  OR 

ooonuw 

245731 

0  AC 

QUOOU 

1  6  ft6  ft 

206527 

LAC 

CCOC  1 

246553 

OAC 

OOQCT 

720072 

0GCTC2. 

SEC 

606065 

JMP 

OQCTC  4 

1606% 

606121 

JMP 

00CT0  1 

426336 

000 1 C4  » 

JSP 

OOCSST 

REPLAY  1,2 

1  A067 

*66553 

ISP 

OCOC  T 

16270 

606062 

JMP 

OQCTC  3 

720073 

CCiO 

160  7  2 

226532 

L  1  0 

00CC2 

205726 

LAC 

Q0CS0E 

16  074 

A4  020ft 

SPA 

226531 

L  1 0 

00CC3 

REPLAY  1,2 

16077 

626241 

JSP 

OGOETY 

16  T  ftft 

606253 

JMP 

CQOCT 1 

16  101 

205726 

OOOTD1, 

LAC 

OOCSOE 

640200 

SPA 

6  ft  6  T  0  3 

000  T  C  *  ♦ 

JMP 

U  10% 

105731 

0U0TC2 , 

XCT 

00  ODD 

REPl AY  1,2 

T  A  106 

72  ft  1  72 

R  SR 

67202 1 

R  1  K 

IS 

1  A  1  1  tf 

64200ft 

SP  1 

/CONTINUE  WR1IE  OPERATIONS 


/POUT  I  NF  TO  01  TERM  INF  IT  OTHER  l  RHORS  Hf  S  I  IM  -Mi  PT 
/  MR  I  N(>  ROTATED  STATE  DEGISTfR  !N10  AC 
/TASK  OUT  110T  R 1  T  AND  ALL  NON-  F  RRQR  RMS 

/NO  OTHER  ERRORS  RESIDE  END  P( 


/ TCU-UN  t  T  FREE  SR 

/SET  QOGSOE  NFG  MEANS  NOT  START  OF  FUNCTION 


/SET  OQGSOF  POSITIVE  MEANS  START  OF  FUNCTION 
/SET  TO  1+LOCIJSP  GQOIC7) 


/MOVE  PARITY  INDICATOR  INTO  HIT 
/CONSTRUCT  FUNCTION  WITH  CORRECT  PARITY 
/STORE  INTO  EXECUTION  ROUTINE 
/SET  10  2 ♦ LOG ( JSP  OQOTC/1 


/STORE  SELECT  INSTRUCTION 


/SET  COUNTER  TO  -66666  DECInAi 


/  TCU  NOT  FREE  WITHIN  SECS 


/GO  TO  ERROR  TYPFOUT  SPECIEY1NC,  CM  OR  CB/ 

/CO  TO  HALT  AGAIN 

/TCU  FREE  — IS  THIS  START  OF  FUNCTION! 
/NORMAL  EXIT 

/select  tape 


606104 

JPP 

QQ0TD2 

/TAPE  IS  REWINDING 

16 

1  12 

206527 

LAC 

OOCC  1 

246553 

DAC 

OOCCT 

/SET  COUNTER  TO  -66666  DECIMAL 

16 

HI 

720172 

CQ0TD3, 

RSR 

652000 

SPI 

I 

606103 

JVP 

QQCTCX 

/NORMAL  EXIT 

426336 

JSP 

OOCSST 

/SAVE  STR  AND  1LC 

16 

1  29 

466553 

ISP 

OOCCT 

606114 

JPP 

OQQTD3 

720073 

CGO 

/UNIT  NOT  FREE  WITHIN  5  SECS 

226532 

LIO 

CQCC4 

REPLAY  1,2 

16 

1 25 

62624  1 

JSP 

QQCETY 

606104 

JPP 

Q JCT  D  ? 

/TRY  AGAIN 

/SR  TO  LOAD  DATA  CONTROL 

16 

127 

266154 

CCQPDC, 

DAP 

OOQPDX 

/SET  UP  RETURN 

16 

1  30 

206306 

LAC 

OQQINI 

/ RC (  1ST  ADDRESS  Df  OUTPUT  OR  INPUT  RL0CK1 

246557 

DAC 

OCCIA 

640200 

SPA 

606210 

JPP 

OQCPDJ 

/illegal  calling  sequence 

16 

li« 

426534 

SUB 

Q0QC7 

/ 1  ST  ADDRESS  -  04  0000 

440400 

SPA 

•062ie 

JPP 

OOCPDJ 

/illegal  calling  sequence 

16 

137 

206307 

LAC 

OOOl N? 

/RCIWLAST  ADDRESS  DF  OUTPUT  OR  INPUT  BLOCK) 

16  140 

426557 

SUft 

QUCI  A 

246560 

DAC 

cocwc 

/STORE  TENTATIVE  WORD  COUNT 

•50500 

SPC 

6062  10 

JPP 

OOCPDJ 

/ILLEGAL  CALLING  SEQUENCE 

16 

166 

206307 

LAC 

CQCIN2 

426534 

SUB 

OOCC  7 

/(1+LAST  ADDRESS)  -  040000 

640500 

S  2  p 

606210 

JPP 

OOCPDJ 

/ILLEGAL  CALLING  SEQUENCE 

16  1 

150 

206  154 

LAC 

OOCPDX 

526546 

SAS 

QuOC 1 7 

406155 

JPP 

OOCPDE 

/SETTING  UP  EDR  A  READ  DR  READ 

COMPARE 

16 

153 

226557 

CQQPCC, 

LID 

00 C  I  A 

161 

154 

606154 

QQCPCX, 

JPP 

/SETTING  UP  FOR  A  READ  DR  READ 

CDmPARF  .  P OR  f 

16  1 

15S 

206550 

CQQPDE, 

LAC 

QQCRC  1 

640100 

S2  A 

406177 

JPP 

QUCPDF 

/READ  COMPARE 

16  160 

206306 

LAC 

0QCIN1 

425721 

SUB 

OOCCEN-1 

/ACTUALLY  SUBTRACTING  VALUE  DE 

OQQBEG 

•40400 

SPA 

•06172 

JPP 

OOCPD  I 

16  1 

1  AM 

fi0eei 

LAW 

I  1 

406307 

acd 

OCCIN? 

426570 

SUB 

CQQRWC  1 

/ACTUALLY  SUBTRACTING  VALUE  DF 

000 END 

640400 

SPA 

16  1 

170 

606210 

JPP 

OOCPDJ 

/READ-IN  REGION  OVERLAPS  TAPE  I 

package.  I L L  1  CU 

406153 

JPP 

QOCPDC 

/READ-IN  REGION  DOESNT  OVERLAP 

TAPE  PACKAGE. 

16  1 

172 

206306 

CQOPD1, 

LAC 

OOC IN  I 

426570 

SLB 

OOCRWC  I 

/ACTUALLY  SUBTRACTING  VALUE  Dr 

QQOEND 

161 

1  74 

•5e500 

SPQ 

406210 

JPP 

OOCPDJ 

/READ-IN  REGION  OVERLAPS  TAPE 

PACKAGF.  ILLtG* 
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*86  153 


JMP  GCCPOO 


16177 

286306 

CQOPCF  » 

L  AC 

QOCIN  1 

16208 

42 6 SR  7 

SUB 

OOCRCP 

648408 

SMA 

686210 

JMP 

OGCPCJ 

205721 

LAC 

UOOOEN- 

16204 

42 654  7 

SUB 

CvCRCB 

640408 

SMA 

686210 

JMP 

QQCPCJ 

686153 

JMP 

QQCPOO 

162  18 

226535 

CQQPQJ, 

LIO 

OCCCB 

REPLAY  1,2 

16212 

626241 

JSP 

QQQET Y 

686003 

JMP 

OOCwl 3 

<62  14 

720146 

SDF 

266240 

CQQEXF, 

OAP 

CUCEXX 

266238 

CAP 

0QCEX2 

205731 

OOQEX1, 

XCT 

OQCCU 

16228 

880000 

0 

720072 

SFC 

606227 

JMP 

QQCEX? 

226533 

L  10 

QCCC5 

REPLAY  1,2 

16221 

626241 

JSP 

GOCETY 

606217 

JMP 

QOQEX  I 

1  622  7 

626033 

CQQEX2, 

JSP 

OOOTC? 

16238 

206230 

LAC 

. 

405727 

ACC 

QGCRP 

245727 

QAC 

COCRP 

446240 

ICX 

OCCEXX 

16234 

720172 

R  SR 

662001 

R  1  L 

IS 

652000 

SPI 

1 

446240 

ICX 

OCCEXX 

16248 

686240 

CQQE  XX , 

JMP 

. 

/READ-IN  REGION  OOESNT  OVERLAP  TAPE  PACHAS.  ItGAl. 

/REFERENCE  REGION  OVERLAPS  RE  A0-CCyPAR  b  BUFFER.  IlLfGA 

/TAPE  PACKAGE  OVERLAPS  REA  O-CCMP  AR  E  BUFFER.  It  LEGAL. 

/legal. 

/TYPE  OUT  ERROR  MESSAGE  FOR  ILLEGAL  CALLING  SMJUFnC. 
/CO  TO  UNSUCCESSFUL  Rf TURN 

/ROUTINE  TO  EXECUTE  FUNCTION  ANO  WAIT  FOR  COMPLETION 
/SET  UP  RF  TURN 

/SELECT  TAPE*  CLFARING  INDICATORS  IN  STATE  REGISTER. 
/FUNCTION  TO  RE  EXECUTED  IS  PRESTORED  HERE. 

/FUNCTION  ACCEPTED 

/FUNCTION  NOT  ACCEPTED  — T  YPE  ERROR  MESSSAGf 
/TRY  AGAIN 

/FUNCTION  ACCEPTEO-- IS  TCU  FREE  IN  LESS  THAN  S  SECS. 
/PICK  UP  RECORD  NUMBER  INCREMENT  OR  OFCRf  M  £  N  T 


/ERROR  T 

YPEOUT  ROUTINE 

16241 

266256 

CQQE  T Y  , 

DAP  QOGETX 

/SET  UP 

RE  TURN 

REPEAT  3 , R I l 

6S 

TYO 

16258 

226961 

LIQ  QQCMK2 

/PUT  CQCE  FOR  CARRIAGE  RETURN  IN  RIGHT  6  HITS 

730003 

T  YO 

REPLAY  1,2 

16251 

286555 

COQE  T  I « 

LAC  CCCSTR 

16254 

226556 

LIO  OQCILC 

760488 

OOOE T2 , 

ML  T 

606256 

COQE  T  X , 

JMP  . 

/return 

TQ  PROGRAM  WHICH  CULEO. 

/INITIALIZATION  ROUTINE 

16257 

880800 

QOQINT,  0 

16268 

128033 

CKS 

720054 

LSM 

126305 

010 

QOCIN0 

266304 

OAP 

QCCINX 

16264 

145725 

OZM 

QQCRW  ( 

16261 

718001 

LAW 

I  1 
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*06257 

ACO 

OCCINT 

245750 

OAC 

COCJS 

16270 

724074 

EEM 

706306 

LAW  OOC I N 1 

766276 

OAP  OQCIN7 

710005 

LAW  1  5 

16  274 

246552 

CAC  CCCCT1 

216257 

GGOIN6, 

LAC  I  COOINT 

246306 

OOOIN7, 

OAC  OCCINT 

*46257 

ICX  OCCINT 

16300 

*46276 

ICX  OOC 1 N  7 
REPLAY  1,2 

16302 

*66552 

ISP  OCCCTt 

*06275 

JMP  QOCIN6 

16304 

406304 

COOINX, 

JMP  . 

1  6309 

000000 

OOO1N0, 

0 

000000 

OOC INI* 

0 

800000 

CCCIN2, 

0 

16310 

800000 

OOOIN3, 

0 

800000 

000IN4, 

0 

800000 

GOO IN?« 

0 

16  311 

246335 

OGOOLT , 

OAC 

oocoux 

1631* 

02655 1 

ANC 

OCCOUM 

246312 

OAC 

OOO I N5 

760300 

LAP 

826551 

AND 

OOCOUM 

16328 

626312 

SAS 

OOC IN  5 

*06324 

JMP 

OOOOU  1 

760200 

CL  A 

106335 

OIP 

OOCOUX 

1632* 

206257 

OQOOU1, 

LAC 

000 1 N  T 

66 1 00  1 

RAL 

IS 

640400 

SMA 

720074 

LEM 

16338 

206305 

LAC 

QOCIN0 

*61077 

RAL 

6  S 

640200 

SPA 

720055 

ESM 

1633* 

616335 

JMP 

I  CQCOUX 

800000 

CCOOUX, 

0 

1  63  36 

266344 

OOOSST, 

OAP  QOCSSX 

720336 

RLC 

16348 

126556 

QIC  CGGHC 

720172 

RSR 

326555 

010  CCCSTR 
REPLAY  1,2 

1634* 

*06344 

euossx. 

JMP  , 

/STATUS  I 

NFO 

/  1ST 

WORO 

FOLLOWING 

JSP 

/2NC 

WORC 

FOLLOWING 

JSP 

/  3R0 

WORO 

FCLLWOING 

JSP 

/  4  TH 

WORO 

FOLLOWING 

JSP 

/5TH 

WORO 

FOLLOWING 

JSP 

/EXIT 

1  NG 

ROUTINE 

/MASK 

WIT 

H  030000  TO 

f  XT R AC r 

MOGUL  F  NUMBER 


/RE  TURN  IS 


IN  SAMf  MOOULE  AS 


TAPE  PACKAGE. 


/CLEAR  BITS  0-5 


/LEAVE  EXTEKO  MOOf  IE  APPRPKlATE 
/BRING  BACK  STATUS  INFO  TO  CHECK 


INITIAL  STATE  OF 


/EXIT 


SFO. 
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/WRITE  ENO  CF  FUC  SECTION 


1  6343 

176257 

cccwef , 

JO  A 

GUCINT 

426037 

OUUKF 1 , 

JSP 

GGCTC I 

733271 

733271 

14358 

6262  1  R 

JSP 

QCQEXF-1 

000001 

1 

406355 

JMP 

CCCKF 2 

700002 

CGQmF4, 

LAW 

2 

1435% 

605752 

JMP 

gockr  y 

16355 

626024 

COOKE 2 , 

JSP 

OUCEPF 

40636  1 

JMP 

COCKE  3 

700001 

QOOKF  5 , 

L  Am 

I 

16  368 

605752 

JMP 

OCCKRY 

626336 

GGGMF  *  , 

JSP 

OQCSST 

22  65U  2 

1(0 

Qc.CC  1  3 

4262*4  1 

JSP 

GOCETY 

1 6  36*1 

46 1177 

R  AL 

7  S 

6*4  0200 

SPA 

606357 

JMP 

Q0CWE2  2 

606353 

JMP 

QcCKFI  S 

16378 

1*46550 

CCURG, 

D/M 

ClGCRC  1 

176257 

JO  A 

CCGINT 

1  6372 

710003 

GGCRD2 , 

L  Am 

I  3 

2*46565 

OAC 

GO'CPRO 

1637% 

626037 

QCCRC  1  » 

JSP 

G0CTC7 

731471 

73  14  7  1 

16376 

626127 

CCGR03, 

JSP 

OUQ'PBC 

1  6  377 

720346 

CO  CROP  , 

SI  A 

16*408 

226560 

L  10 

QCCWC 

722046 

SW1 

16U02 

426215 

JSP 

OCQfXf 

000001 

GCWPC6, 

1 

16*40*1 

406412 

JMP 

0CCRP4 

672037 

MR 

5S 

442000 

SPI 

605757 

JMP 

G COR  12 

16*4  18 

226550 

L  I  0 

CCCRC  I 

605751 

JMP 

OO'CKR  Y- 

16*4  12 

42  60  3  7 

GCURC4, 

J$P 

00 C  TC  7 

/K«I TF  FOF  FUNCTION 

/DISCONNECT  DATA  CONTROL  A <0  EXECUTE  FUNCTION. 
/increment  RECORD  COUNT 
/ L R  ROR  RETURN 

/RETURN  TC  NORMAL  RE  TURN  I  1  MAIN  PROGRA** 


/TH*RF  ARE  NON-END-PI  ERRORS 
/CNLY  END  POINT 

/GO  TO  ENO  POINT  RF  TURN  OF  MAIN  PROGRAM. 
/  S  A  V  F  STATE 


/GO  TO  F  NO  POINT  RCIJTN  OF  MAIN  PROP.  AM 
/CO  TC  NORMAL  RETURN  or  MAIN  PROG^A'* 


/SECTION  FOR  RF  AO  ANO  READ  COMPARE 

/SET  R  f  AO  COMPARE  INDICATOR  TO  STRAIGHT  R  T  AD 


/PROCESS  THE  CALLING  SEQUENCE. 


/SWC  IN 

/EXECUTE  f UNCTION,  TEST  FOR  ACCEPTANCE  ANT  COMPLETION. 
/  I  NCR  f  ME:  N  T  RECORD  COUNT 
/ F  R R 0 R  RE  TURN 

/NO  ERROR — MOVE  EOF  BIT  INTO  SIGN. 

/fNC  OF  FILE  RETURN. 

/normal  RP  tur  A 
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144U 

730471 

730471 

/BASIC  BACKSPACE  FUNC  ION 

Mil* 

426214 

JSP 

qqcexf-i 

/CISCCNNECT  OATA  CONTROL  ANO  FXFCUTF  FUNCTION 

177776 

-1 

/DECREMENT  RECORD  COUNT 

406422 

JMP 

OCCBER 

/ERROR  RETURN  FRO*  BACKSPACf  AFTER  KE  AC 

14411 

466565 

CQQRC5, 

I  SP 

OOCRRD 

/normal  return  fro*  backspace 

I  4*28 

406374 

JMP 

QCCR01 

/RE-READ 

14121 

406003 

JMP 

00CW13 

/CO  TO  UNSUCCESSFUL  RI  I  URN  IN  MAIN  PROGRA*. 

14122 

426336 

CQQBER • 

JSP 

OOCSST 

/SAVE  STATE 

226540 

L  I  0 

OCCC 1  1 

14124 

62624 1 

JSP 

OOCETY 

406417 

JMP 

0CCRT5 

/NOR*AL  RETURN 

/SECTION  FOR  SPACE  FUNCTION 

14156 

176257 

QQQSP, 

JOA 

QQQINT 

226413 

L  I  0 

0GCR04  1 

/BASIC  BACKSPACE  FUNCTION 

16430 

206306 

LAC 

QCC1NI 

/PICK  UP  PLUS  OR  MINUS  THt  NUMBER  OF  RECORDS  T( 

440400 

SMA 

226375 

L  10 

00CR01  I 

/eASIC  FORWARD  FUNCTION 

126447 

010 

000SP4 

16434 

2264  15 

L  I  0 

CCCRD4  3 

/-I 

640400 

SMA 

226403 

L  1  0 

0QCRC6 

/♦  I 

S26461 

010 

QCCSP5 

16440 

440400 

sma 

V61000 

CMA 

605775 

SAD 

OOCW10  3 

/-0 

405757 

JMP 

QCCto 1 2 

/ZERO  SPACING  REOUI»FI> - GO  TO  NORMAL  RETURN 

14444 

246552 

0  AC 

OCCCT 1 

/COUNTER  CONTAINS  -{NO.  RF  CORDS  TO  SPACf  ) 

REPLAY  1,2 

14446 

426037 

CQQSP3, 

JSP 

OOCTCZ 

000000 

00CSP4, 

0 

/BASIC  FUNCTION  IS  PRI  SE  T 

16450 

205727 

LAC 

QQQRP 

/PICK.  UP  RFCORO  POINTER 

440  100 

SZA 

406460 

JMP 

0CCSP5-I 

/RECORD  POINTER  NOT  ? - PERFORM  SPACING  FUNCTION 

206306 

QQOSPe, 

LAC 

OQCINI 

/PICK  UP  NUMBER  OF  RECORDS  TO  ^PACF 

14454 

640400 

SMA 

606460 

JMP 

00CSP5-1 

/PERFORM  FORWARO  SPACING  FUNCTION 

226552 

L  10 

OOCCT  I 

406353 

JWP 

QQQWF4 

/GO  TO  RECORD  0  RETURN  IN  MAIN  PROGRAM 

14460 

426214 

JSP 

OOOEXF-1 

/OISCCNNECT  OATA  CONTROL  AND  EXECUTE  FUNCTION. 

777776 

OOOSP5, 

-  1 

/-I  OR  ♦! 

406473 

JMP 

CCCESP 

/ERROR  RETURN 

120172 

000SP6, 

R$R 

/NO  ERROR  — BRING  STATE  INTO  10 

144  64 

672017 

RI« 

4  S 

/ROTATE  EOF  BIT  INTO  !  (GN 

442000 

SPI 

40  6477 

JMP 

CQCSP7 

/EOF  FOUNO. 

REPLAY  1,2 

S»‘A 
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16470 

* *6552 

ISP 

QQCCT 1 

606446 

JMP 

QOCSP3 

/SPACE 

SOHE  MORE. 

105757 

JMP 

QOQW12 

/GO  TC 

normal  return. 

16473 

626336 

QQGESP, 

JSP 

OQOSST 

/ERROR 

FROM  SPACING  — SAVE  STATE 

164  7% 

226541 

L  10 

OCOC  12 

626241 

JSP 

QGCETY 

/ERROR 

TYPECUT 

606463 

JMP 

00CSP6 

/NORMAL 

RE  TURN 

16477 

446552 

OOOSP7, 

1CX 

OOOCT  1 

16500 

226552 

HQ 

OQCCT  1 

606003 

JMP 

CGCWl 3 

/GO  TO 

END  OF  FILE  RETURN. 

/ SFC T | ON  FOR  REW1N0 

16502 

176257 

CQOREW, 

JO A  OOOI N  T 

704000 

LAW  4000 

1650% 

245725 

0 A C  QOCRWI 

/ SFT  REWINC  INDICATOR  TO  REWlNC 

16505 

626037 

JSP  OOOTCZ 

73047 1 

730471 

/BASIC  BACKSPACE  FUNCTION 

472077 

RIR  6 S 

165  10 

442000 

SP1 

606515 

JMP  QQQRW1 

/AT  LOAC  POINT 

165  12 

426214 

JSP  QOCEXF-t 

/Cl SCONNEC  T  OATA  CONTROL  ANO  EXECUTE  FUNCTION, 

000000 

0 

16514 

606517 

JMP  QQQRW2 

/ERROR  RETURN 

145727 

QOQRWl , 

QZM  OOCRP 

/NO  ERROR — RESET  RECQRC  POINTER 

165  16 

406357 

JMP  QCCWF5 

/GO  TO  NORMAL  R F TURN  (N  MAIN  PROGRAM 

16517 

426336 

OOORW2, 

JSP  OOOSST 

/SAVE  STATE 

16520 

226543 

L I 0  UQCC14 

710700 

LAW  1  700 

/MASK  TO  REMOVF  PARITY  ANO  OENSITY  FROM  STATE 

1  NO  1  CATO 

026555 

ANO  QGCSTP 

626545 

SAS  0CCC16 

16524 

426241 

JSP  OOCETY 
REPLAY  1,2 

16526 

606515 

JMP  QCCRWI 

/CONSTANTS,  TEMP  STORAGE,  MASKS,  MESSAGES  ANO 

COUNTER  S 

16527 

575625 

OOOC  1 , 

-*66666  . 

16530 

43620 1 

Q WOC 2 • 

TEXT  f  CB 1 

16531 

636202 

OOOC 3, 

TEXT  (CB2 

16532 

246200 

OOOC 4, 

TEXT  (UB 

16533 

644561 

OQGC5« 

TEXT  IFNA 

1653% 

040000 

OOOC 7, 

040000 

716322 

COOC  8 « 

TEXT  IlCS 

16536 

456226 

OOOC 9 , 

TEXT  IEBW 
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16537 

656223 

QCCC10, 

TEXT  { EBT 

16540 

6S6251 

CQQC  11, 

TEXT  (EBR 

( 

16541 

652247 

CQQC 12. 

TEXT  I  ESP 

16542 

652666 

CQQC 13, 

i 

TEXT  ( EWF 

16543 

655126 

CQQC 14 , 

I 

TEXT  (ERW 

16544 

«020ee 

CQQC 15, 

2e00 

600001 

CQQC  16, 

600001 

606377 

QGQC1 7, 

JKP  QCCR03  1 

036000 

CGQRCe, 

03600k’ 

/START  OF  PE  AG  COMPARE  RUFFFR 

16550 

000000 

CGQRC 1 , 

0 

/READ  COMPARE  INDICATOR,  0  FQR  STRAIGHT 

030000 

CQQCUM , 

030*00 

16552 

800000 

CQQC  T 1 , 

0 

800000 

CQQC  T , 

0 

16SS4 

720070 

CQQOLe, 

720070 

000000 

CGGSTR, 

0 

000000 

GQQHC, 

0 

8000P0 

GGQ1 A, 

0 

16560 

800000 

CQCWC, 

0 

1656  1 

177777 

QQCMK2, 

177777 

S70001 

QQQKK 1, 

37Z0K1 

16563 

000000 

QQGTEM, 

0 

16564 

800000 

GCQTH1, 

0 

1  6561 

*00000 

CQQRRC , 

0 

/REREAG  COUNTER 

800000 

CQQeTC, 

0 

/PLANK  TAPE  COUNTER 

800000 

GQGRWC, 

0 

/REWRITE  COUNTER 

1  6570 

816570 

CQQENC 

QCQENC 

REPEAT  0 1 E  VZ 

QQQENC  7  700  0  0— QQQBEG  77l'C00,  FP.  IN  TX  ( 

TAPE  PACKAGE  OVERLAPS  CORE  VQOULES  ANG  WILL  NOT  OPERATE  PROPERLY. 
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START 
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/MODULE  2 

SCOPE  DISPLAY 

21000 

20000/ 

21000 

020137 

TEXTLINES 

20137 

221761 

221761 

060066 

060066 

REPEAT  52.,  TEXTLINES 

130000 

130000  /ESCAPE 

21070 

103000 

3000  /STOP 

034137 

CHANNELS 

54  137 

221673 

221673 

160064 

060066 

21070 

*37061 

TEXT  /CHA 

154565 

NNE 

432200 

000100 

LS 

1 

’0100 

000200 

2 

100300 

100400 

3 

20  103 

730000 

130000  /ESCAPE 

CEFINE 

BTEXT  A,B,C 

A 

24137 

220000+B 

06  0000  *C 

TERM  1NATE 

BTEXT  CONTINUE, 33, 71  1 

20  107 

134  645 

TEXT  /CON 

20110 

237145 

TIN 

946500 

UE/ 

201  12 

130000 

I30eee  /escape 

003000 

3000  /STOP 

BTEXT  NEXTFILE»66,66 

201  IT 

456527 

TEXT  /NEX 

20  120 

230066 

T  F 

714365 

RE 

20122 

130000 

130000  /ESCAPE 

BTEXT  TVP0UT,66, 1535 

20126 

233047 

TEXT  /TYP 

*50046 

E  0 

20130 

242300 

UT/ 

20131 

230000 

130000  /ESCAPE 

BTEXT  TYPIN,66, 1205 

20133 

233047 

TEXT  /TYP 

*50071 

F  I 

450000 

N/ 

20140 

K30000 

130000  /ESCAPE 

BTEXT  TH I SF I LE  »  66  »  4  16 

20  U4 

237071 

TEXT  /TH1 

220066 

S  F 

F 1 4365 

I  LE 

20147 

130000 

130000  /ESCAPE 

20130 

103000 

3000  /STOP 
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BTEXT  DOCUMENT, 33, 262 


2  8  156 

688663 

TEXT  /DOC 

266665 

652300 

IJMF 

NT/ 

20151 

130000 

130000 

/ESCAPE 

20160 

003000 

3000 

/STOP 

BTEXT  FRAME, 

66,66 

20  168 

665161 

TEXT  /FRA 

666500 

KF  / 

20166 

130000 

130000 

/ESCAPE 

BTEXT  SLOW, 66, 616 

20172 

228366 

TEXT  /SLO 

260000 

*/ 

20178 

130000 

130000 

/ESCAPE 

BTEXT  M00ERATE,66, 1205 

28208 

666668 

TEXT  /MOD 

655161 

236500 

FRA 

T£/ 

28203 

130*00 

1 30000 

/ESCAPE 

BTEXT  FAST, 66, 1535 

20207 

666  122 

TEXT  /FAS 

282  10 

230000 

T/ 

202  1  1 

130000 

130000 

/ESCAPE 

003000 

3000 

/STOP 

121 


BTEXT  INFO,  1  675.  J1PT 


202  16 

227167 

227167 

/SIGMA 

446100 

446100 

20220 

320000 

322000 

000000 

1  NFC  1 

000000 

000000 

0C0000 

/SIGMA 

000000 

00  000k‘ 

20220 

000013 

000013 

/F  SCAPE 

031*037 

*53403  7 

221640 

22  164,: 

0*1  100 

061100 

20230 

4524**** 

452444 

*26551 

626551 

004666 

004666 

002351 

002351 

2*230 

616365 

616365 

220032 

220032 

000000 

INFC2 

000000 

000000 

000000 

/NUMBER 

202  00 

000000 

00000,: 

000013 

000013 

/ESCAPE 

034037 

0  345137 

221605 

221605 

20204 

061100 

06 1 100 

446127 

446127 

001600 

00  1600 

271600 

271600 

20250 

003200 

PZ32eCi 

000000 

1NFC3 

000000 

000000 

0P0000 

/MAX  ) 

000000 

003000 

20250 

130000 

1 3tf«0P 

034037 

34  037 

221552 

22  1552 

061100 

06 1 100 

20260 

237  144 

TEXT  /TIP 

*50026 

E 

W 

465164 

ORO 

20263 

003200 

023200 

20260 

000000 

TAPINF 

002000 

000000 

00000*1 

000000 

00000*' 

130000 

1 30201 

20270 

034037 

34037 

221517 

22  1517 

061  100 

06 1100 

235  16  1 

TEXT  /TRA 

2027U 

636500 

CF 

454673 

NO. 

2*276 

003200 

20  3200 

000000 

TAPI NK 

000000 

20300 

000000 

0P0000 

*00000 

0P30051 

130000 

132200 

003000 

3000 

/STOP 

20300 

034157 

SORRY 

34  157 

22  100e 

22102/ 

06007e 

060070 

474365 

TEXT  /PLE 

122 


20310  412265 

00232% 
614600 
222346 
21311  470062 

242323 
444500 
446666 
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2  8328 

130000 

130000 

/ESCAPE 

80  3000 

3000 

/STOP 

0015*8 

SOTOSC  *  15*0 

20322 

83*117 

TRACE 

03*1  17 

2215*0 

2  2  0002*  SOTOSC 

2932* 

100777 

100777 

REPEAT  *00., 

TRACE 

803000 

3  0  00 

03*117 

THYTBL 

3*  1  17 

220207 

22020  7 

2  1158 

100066 

102066 

23*31 

.♦20000 ♦  1200 ./ 

23*31 

803000 

CEE 1NE 

3000 

UPXW 

2*117 

220000 

100000 

200226 

20005* 

200226 

3  1  3626 

2  l  3*26 

71 3*26 

/IPPER  1 

TERMINATE 

CEF  1NE 

LCXW 

2*117 

220000 

1 00000 

200226 

/LOWER  i 

20005* 

200226 

2  13626 

313*26 

613*26 

3000 

/STOP 

TERMINATE 

LIMITS 

REPEAT  8., 

UPXW 

BT  EXT  TMCTFR, 

115, 122 

23661 

160000 

360000 

130000 

1  3O00B 

/E  SCAPE 

80  3000 

3000 

/STOP 

023662 

T 1 MCRT-TMCTFR 

BTEXT  TMCTSL, 

1  15  ,*52 

23673 

160000 

360000 

2367* 

130000 

130000 

/ESCAPE 

803000 

3fc00 

/STOP 

BTEXT  TMCT*0, 

115, 1275 

2370  1 

360000 

360000 

130000 

13000V 

/ESCAPE 

803000 

3000 

/STOP 

BTEXT  TMCTFA, 

115,1571 

23707 

360000 

360000 

237  10 

130000 

l 30000 

/ESCAPE 

803000 

3ea8 

/STOP 

/TRACE  OISPLAY  BUFFER  AREA 
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CE  F INF  M^MEI 
34  137 

228000 

062000 

00000P 

000000 

i  ^  «fc30t* 
3@00 

TERMINATE 

NAMF  REPEAT  8. 


/ ALLOWS  FOP  6 
/CHARACTER  NAPE 

/STOP 
NAME  1 


DEFINE  KAROTF  A,P,C 


A  BTEXT  A , B  » C 

360013 

3000  /STOP 

TERMINATE 


24052 

020  1  17 
220207 

2  40  54 

102066 

200177 

200177 

200177 

24060 

200177 
200177 
200177 
200  177 

24064 

600032 

803000 

034137 

220207 

24070 

860000 
8500  1  3 
034137 
220  172 

24074 

860000 

360013 

003000 

KAROTE 

KAROTF 

KAROTF 

KAROTF 

KAROTE 

KAROTE 

KAROTE 

KAROTF 

BASF  LN  020117 
220207 
1452066 
200177 
200177 
200177 
200177 
2  £  0  1 7  7 
2PP177 
200177 
6  C  0032 
003000 

CRTPU  34137 

220207 
06/00/ 
350013 
34  1  37 
220172 
060000 
360013 
003000 


NAPCRT ,0,0 
CR  T COM ,60 , 777 
CRTNF , 1 15, 14 l 
CRTTO,  11b,  1616 
CRT  T 1 ,  1  lb,  1246 
CRTTF, 1 1 5,4  72 
CR  TPOC ,60,310 
DATAX, 0,0 


/STOP 


/STOP 


24077  834157 

24100  221000 

060070 
474365 
612265 
24104  802265 

436563 
230061 
004365 
24110  676143 

802  36  1 
476500 
637061 


CMNKES  34157 
221000 
060070 
TEXT  /PLE 

ASE 

SF 

LEC 

T  A 

LE 

GAL 

TA 

PE 


CHA 
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21111 

*54565 

*30000 

2%  1  V6 

800013 

003000 

24120 

034  157 

221000 

060070 

437144 

LSONC 

24  124 

712300 

226523 

8  06-46  5 
**7145 

2*130 

712371 

*64500 

712200 

*54623 

24  13* 

006346 

444743 

*52365 

24137 

737700 

2*140 

000047 

P 

436561 

LEA 

226500 

232451 

SE 

2*14* 

*50046 

*50043 

714471 

232200 

2*160 

*22423 

234  645 

806145 

*40066 

2*154 

714571 

227073 

2*156 

000013 

003000 

2*160 

•34157 

221000 

0*0070 

474365 

PTOASL 

2*16* 

*12265 

002324 
fi 1 4600 

1*6666 

24170 

006143 

*30022 

246243 

714471 

2*17* 

230062 

242323 

**4522 

2*177 

800013 

2*200 

003000 

2*201 

744572 

244462 

*55100 

ec  i 

2*20* 

*66600 

*46123 

*10047 

*67145 

NNE 

L/ 

13 

3200 


34157 
221000 
060070 
TEXT  /LIM 

IT 

SET 

DE 

F  !N 

I  T  t 

ON 

IS 

NOT 

CO 

MPl 

FTP 


TUK 

N  0 

N  l 

!HI 

TS 

BUT 

TON 

AN 

0  F 

INI 

SH. 

/ 

U 

3000 
3  U  ?  5  7 
221000 
060070 
TEXT  /PLE 

AS6 

TU 

KN 

OFF 

Al 

L  S 

UBL 

IMI 

T  B 

UT1 

ONS 

/ 

13 

3000 
TEXT  /N 

UNB 

FR 

OF 

OAT 

A  P 

0 1  N 
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2*214 

232200 

TS 

1*3372 

=* 

/ 

2**12 

1 ***72 

0C2 

TEXT 

/* 

4561*5 

E  AN 

2121V 

407*33 

* 

720000 

/ 

2*2  14 

1**772 

8C3 

TEXT 

/P 

61*662 

ROP 

2*224 

416271 

ABI 

•37123 

LIT 

1000*6 

Y  0 

4400** 

F  t* 

2  *22* 

4561*5 

CAN 

007*33 

■ 

720000 

/ 

2*221 

1*7172 

8C* 

TE  XT 

/I 

2*230 

*52365 

NTE 

475161 

GRA 

1100*  7 

L  P 

51*662 

RC8 

2*23* 

416271 

A8 1 

*37123 

LIT 

100066 

V  F 

*66 10  0 

OR 

2*2*0 

010022 

1 

S 

7167** 

IGR 

41007* 

A 

137200 

*/ 

2*2*1 

7*2272 

BC3A 

TEXT 

/S 

1167** 

IGK 

41007* 

A 

137200 

*/ 

21254 

r*7 1 72 

8C5 

TEXT 

/I 

*52365 

NT  F 

475161 

GRA 

*300*7 

L  P 

2*2  S* 

61*662 

R08 

416271 

ABI 

*37123 

LIT 

100066 

Y  F 

2*260 

*45100 

OR 

120022 

2 

s 

1167** 

1GM 

41007* 

A 

2*26* 

837200 

2*261 

1*7172 

8C6 

TEXT 

/I 

<52365 

NTF 

475161 

GRA 

2*270 

*300*7 

l  P 

£1*662 

RCB 

416271 

ABI 

*37123 

LIT 

2*27* 

100066 

Y  F 

*65100 

OR 

•30022 

3 

5 

7167** 

tOM 

2*301 

41007* 

A 

137200 

»/ 

><302 

f*6772 

8C7* 

TEXT 

/G 
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RAN 


2*30* 

61 A  1*5 
2**361 

2*3  10 
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